INTEGRALS: Remove IBM case for OPEN statement.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2018-08-28 22:42:59 -03:00
parent 1881db4e82
commit 9ea880b686

View File

@ -53,8 +53,8 @@ module integrals
! sunit - a file handler to the statistics file; ! sunit - a file handler to the statistics file;
! iintd - the number of steps between subsequent intervals storing; ! iintd - the number of steps between subsequent intervals storing;
! !
integer(kind=4), save :: funit = 7 integer(kind=4), save :: funit = 11
integer(kind=4), save :: sunit = 8 integer(kind=4), save :: sunit = 12
integer(kind=4), save :: iintd = 1 integer(kind=4), save :: iintd = 1
! by default everything is private ! by default everything is private
@ -142,18 +142,13 @@ module integrals
! create a new integrals file ! create a new integrals file
! !
#ifdef GNU
open (newunit = funit, file = fname, form = 'formatted' &
, status = 'replace')
#endif /* GNU */
#ifdef INTEL #ifdef INTEL
open (newunit = funit, file = fname, form = 'formatted' & open (newunit = funit, file = fname, form = 'formatted' &
, status = 'replace', buffered = 'yes') , status = 'replace', buffered = 'yes')
#endif /* INTEL */ #else /* INTEL */
#ifdef IBM open (newunit = funit, file = fname, form = 'formatted' &
open (unit = funit, file = fname, form = 'formatted' &
, status = 'replace') , status = 'replace')
#endif /* IBM */ #endif /* INTEL */
! write the integral file header ! write the integral file header
! !
@ -168,18 +163,13 @@ module integrals
! create a new statistics file ! create a new statistics file
! !
#ifdef GNU
open (newunit = sunit, file = fname, form = 'formatted' &
, status = 'replace')
#endif /* GNU */
#ifdef INTEL #ifdef INTEL
open (newunit = sunit, file = fname, form = 'formatted' & open (newunit = sunit, file = fname, form = 'formatted' &
, status = 'replace', buffered = 'yes') , status = 'replace', buffered = 'yes')
#endif /* INTEL */ #else /* INTEL */
#ifdef IBM open (newunit = sunit, file = fname, form = 'formatted' &
open (unit = sunit, file = fname, form = 'formatted' &
, status = 'replace') , status = 'replace')
#endif /* IBM */ #endif /* INTEL */
! write the integral file header ! write the integral file header
! !