INTEGRALS: Remove IBM case for OPEN statement.
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
parent
1881db4e82
commit
9ea880b686
@ -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
|
||||||
!
|
!
|
||||||
|
Loading…
x
Reference in New Issue
Block a user