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

Added a new wrapper to the flush routine. Hereafter to flush a unit use: 

CALL flush_unit( unitnumber ) without any "#ifdef". All the check are done within
flush_unit.
C.S.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1903 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia 2005-05-25 02:56:34 +00:00
parent 104c9e5fdd
commit 23f1f09b91
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
flib/Makefile
View File

@ -8,6 +8,7 @@ atomic_number.o \
capital.o \
dost.o \
erf.o \
flush_unit.o \
functionals.o \
lsda_functionals.o \
more_functionals.o \

26
flib/flush_unit.f90 Normal file
View File

@ -0,0 +1,26 @@
!
! Copyright (C) 2005 PWSCF-FPMD-CPV groups
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
#include "f_defs.h"
!
!----------------------------------------------------------------------------
SUBROUTINE flush_unit( unit_tobeflushed )
!----------------------------------------------------------------------------
!
! ... this is a wrapper to the standard flush routine
!
INTEGER, INTENT(IN) :: unit_tobeflushed
LOGICAL :: opnd
!
!
INQUIRE( UNIT = unit_tobeflushed, OPENED = opnd )
!
IF ( opnd ) CALL flush( unit_tobeflushed )
!
RETURN
!
END SUBROUTINE