scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Live and learn: IBM XLF compilers have a different idea when storing arrays in text files 

this small patch enables inter-sytem operability


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6867 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
obm 2010-06-25 20:55:27 +00:00
parent 7899ead9ba
commit 6b35637248
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
TDDFPT/src/lr_write_restart.f90
View File

@ -29,7 +29,7 @@ subroutine lr_write_restart()
!
! local variables
!
integer :: i, pol_index,ibnd_occ,ibnd_virt
integer :: i, j, pol_index,ibnd_occ,ibnd_virt
character(len=256) :: tempfile, filename
logical :: exst
!
@ -40,7 +40,7 @@ subroutine lr_write_restart()
!
!ionode only operations:
!
pol_index=1
pol_index=1 !if there is only one polarization dir, storage is one rank less
if ( n_ipol /= 1 ) pol_index=LR_polarization
#ifdef __PARA
@ -64,7 +64,10 @@ subroutine lr_write_restart()
!
write(158,*) beta_store(pol_index,i)
write(158,*) gamma_store(pol_index,i)
write(158,*) zeta_store (pol_index,:,i)
!This is absolutely necessary for cross platform compatibilty
do j=1,n_ipol
write(158,*) zeta_store (pol_index,j,i)
end do
!
end do
!