MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
OpenSpec.f90
Go to the documentation of this file.
2 ! Code in this file defines values for OPEN-statement specifiers. Some
3 ! of the values are extensions to ANSI Fortran 90 and 95. One of the
4 ! specifiers is not included in ANSI FORTRAN 77. The included
5 ! specifiers are ACCESS, FORM and ACTION.
6 !
7  CHARACTER(len=20) :: access, form, action(2)
8 !
9 !
10 ! Specifiers for OPEN statements for unformatted files, which are
11 ! sometimes compiler specific.
12 ! The included specifiers are ACCESS and FORM.
13 !
14 ! ACCESS specifier --
15 !
16 ! Standard Fortran -- Use unless there is a reason to do otherwise.
17 ! DATA ACCESS/'SEQUENTIAL'/
18  DATA access/'STREAM'/
19 !
20 !
21 ! FORM specifier --
22 !
23 ! Standard Fortran, which results in vendor dependent (non-portable)
24 ! files. Use unless there is a reason to do otherwise.
25  DATA form/'UNFORMATTED'/
26 !
27 ! Non-standard Fortran that causes code compiled by Compaq (Digital)
28 ! Fortran on personal computers to use unstructured non-formatted
29 ! files. This may make it possible for the non-formatted files used
30 ! by MODFLOW to be used with programs that are compiled by other
31 ! compilers.
32 ! DATA FORM/'BINARY'/
33 !
34 !
35 ! OPEN-statement specifiers related to file-sharing.
36 !
37 ! ACTION specifier --
38 !
39 ! Standard FORTRAN 77 -- Eliminate the ACTION= specifier from all
40 ! OPEN statements in the source-code files.
41 !
42 ! Standard Fortran 90 and 95 -- Use unless there is a reason to do
43 ! otherwise.
44  DATA(action(iact), iact=1, 2)/'READ', 'READWRITE'/
45 !
46 ! Non-standard Fortran that causes code compiled by the Lahey LF90
47 ! compiler to create files that can be shared. For use when parallel
48 ! processing is used or to enable an editor to view output files
49 ! while the program is running.
50 ! DATA (ACTION(I),I=1,2)/'READ,DENYWRITE','READWRITE,DENYNONE'/
51 !
52 end module openspecmodule
character(len=20) access
Definition: OpenSpec.f90:7
character(len=20), dimension(2) action
Definition: OpenSpec.f90:7
character(len=20) form
Definition: OpenSpec.f90:7