From 053c11d86e0512340fed3a93c35aad2361fe7d51 Mon Sep 17 00:00:00 2001 From: giannozz Date: Wed, 4 Mar 2015 10:05:55 +0000 Subject: [PATCH] Lines exceeding 132 characters due to trailing blanks git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11421 c92efa57-630b-4861-b058-cf58834340f0 --- GWW/gww/do_self_lanczos_time.f90 | 2 +- GWW/pw4gww/wannier_uterms.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GWW/gww/do_self_lanczos_time.f90 b/GWW/gww/do_self_lanczos_time.f90 index 04a5de3a4..008052e84 100644 --- a/GWW/gww/do_self_lanczos_time.f90 +++ b/GWW/gww/do_self_lanczos_time.f90 @@ -630,7 +630,7 @@ subroutine do_self_lanczos_time(ss, tf ,options,l_real_axis,energy) call dgemm('T','N',numl,numt,numt,1.d0,ttl_j%tt_mat,numt,re_e_mat(1,1,iw-nbegin_g+1),numt,0.d0,tmp_mat,numl) call dgemm('N','N',numl,numl,numt,1.d0,tmp_mat,numl,ttl%tt_mat,numt,0.d0,re_g_mat(1,1,iw-nbegin_g+1),numl) call dgemm('T','N',numl,numt,numt,1.d0,ttl_j%tt_mat,numt,im_e_mat(1,1,iw-nbegin_g+1),numt,0.d0,tmp_mat,numl) - call dgemm('N','N',numl,numl,numt,1.d0,tmp_mat,numl,ttl%tt_mat,numt,0.d0,im_g_mat(1,1,iw-nbegin_g+1),numl) + call dgemm('N','N',numl,numl,numt,1.d0,tmp_mat,numl,ttl%tt_mat,numt,0.d0,im_g_mat(1,1,iw-nbegin_g+1),numl) else do in=0,ndivt-1 nbegin_t=in*l_blk_t+1 diff --git a/GWW/pw4gww/wannier_uterms.f90 b/GWW/pw4gww/wannier_uterms.f90 index eacd7d7db..9726226d3 100644 --- a/GWW/pw4gww/wannier_uterms.f90 +++ b/GWW/pw4gww/wannier_uterms.f90 @@ -259,7 +259,7 @@ allocate(q2(-n_int_loc+1:n_int_loc)) allocate(q3(-n_int_loc+1:n_int_loc)) do ix=-n_int_loc+1,n_int_loc - q1(ix)=(0.5d0*(1.d0/dble(n_int_loc)*(dble(ix-1))+0.5d0/dble(n_int_loc))*bg(1,1)+g(1,ig))**2.d0 + q1(ix)=(0.5d0*(1.d0/dble(n_int_loc)*(dble(ix-1))+0.5d0/dble(n_int_loc))*bg(1,1)+g(1,ig))**2.d0 enddo do ix=-n_int_loc+1,n_int_loc q2(ix)=(0.5d0*(1.d0/dble(n_int_loc)*(dble(ix-1))+0.5d0/dble(n_int_loc))*bg(2,2)+g(2,ig))**2.d0