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

flush => flush_unit, as everywhere else 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3410 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2006-09-21 20:04:37 +00:00
parent 43e4e5d38d
commit 572c0d914c
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VIB/vibrations.f90
View File

@ -211,7 +211,7 @@ CONTAINS
U = 0.0
restart_vib = .FALSE.
restart_cyc_counter = -1
call flush(stdout)
call flush_unit(stdout)
!
! (4) Setting the T matrix (diagonal mass matrix)
!

3
VdW/dvpsi_e.f90
View File

@ -1,3 +1,4 @@
!
! Copyright (C) 2001-2003 PWSCF group
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
@ -211,7 +212,7 @@ subroutine dvpsi_e (kpoint, ipol)
kpoint, ibnd, anorm
!
#ifdef FLUSH
call flush (6)
call flush_unit (6)
#endif
!
! we have now obtained P_c x |psi>.

2
VdW/solve_e.f90
View File

@ -381,7 +381,7 @@ subroutine solve_e ( iu )
WRITE( stdout, "(5x,' thresh=',e10.3, ' al_mix_vdw = ',f6.3, &
& ' |ddv_scf|^2 = ',e10.3 )") thresh, al_mix_vdw (kter), dr2
#ifdef FLUSH
call flush (6)
call flush_unit (6)
#endif
! call seqopn (iunrec, 'recover', 'unformatted', exst)