1 |
cnh |
1.1 |
C $Header: $ |
2 |
|
|
C /==========================================================\ |
3 |
|
|
C | DFILE.h | |
4 |
|
|
C |==========================================================| |
5 |
|
|
C | Header file for binary dump file I/O structures. | |
6 |
|
|
C \==========================================================/ |
7 |
|
|
C Compile time constants |
8 |
|
|
C ioUnitsPerThread - Number of ioUnits allowed |
9 |
|
|
C busyUnit - Status flag. Indicates whether unit |
10 |
|
|
C freeUnit is open |
11 |
|
|
C accessModeRO - Read-only v. read-write flag |
12 |
|
|
C accessModeRW |
13 |
|
|
C errorModeSTOP - Indicates action on I/O error |
14 |
|
|
C errorModeCONT |
15 |
|
|
INTEGER ioUnitsPerThread |
16 |
|
|
PARAMETER ( ioUnitsPerThread = 1 ) |
17 |
|
|
INTEGER busyUnit |
18 |
|
|
PARAMETER ( busyUnit = 0 ) |
19 |
|
|
INTEGER freeUnit |
20 |
|
|
PARAMETER ( freeUnit = 1 ) |
21 |
|
|
INTEGER accessModeRO |
22 |
|
|
PARAMETER ( accessModeRO = 0 ) |
23 |
|
|
INTEGER accessModeRW |
24 |
|
|
PARAMETER ( accessModeRW = 1 ) |
25 |
|
|
INTEGER errorModeSTOP |
26 |
|
|
PARAMETER ( errorModeSTOP = 0 ) |
27 |
|
|
INTEGER errorModeCONT |
28 |
|
|
PARAMETER ( errorModeCONT = 1 ) |
29 |
|
|
INTEGER metaDataNotWritten |
30 |
|
|
PARAMETER ( metaDataNotWritten = 0 ) |
31 |
|
|
INTEGER metaDataWritten |
32 |
|
|
PARAMETER ( metaDataWritten = 1 ) |
33 |
|
|
|
34 |
|
|
C mUnit - Fortran unit number for metafile |
35 |
|
|
C dUnit - Fortran unit number for data |
36 |
|
|
C unitStatus - Busy/Free status flag |
37 |
|
|
C nameOfMFile - Name of metadata file used in I/O |
38 |
|
|
C nameOfDFile - Name of data file used in I/O |
39 |
|
|
C accessMode - Access mode that was set when this unit was opened. |
40 |
|
|
C Access mode is either read-only or |
41 |
|
|
C read-write. |
42 |
|
|
C errorMode - Error mode that was set when this unit was opened. |
43 |
|
|
C Error mode is either STOP on error which means the |
44 |
|
|
C program halts or continue or error. For continue |
45 |
|
|
C error the program usually tries to write an error |
46 |
|
|
C message to stderr. Howeever, the most common cause for |
47 |
|
|
C an IO error is a full disk in which case that |
48 |
|
|
C error message may be lost! |
49 |
|
|
C theAcessMode - The current acces mode. This will be the mode |
50 |
|
|
C associated with a file that is opened. |
51 |
|
|
C theErrorMode - The current error mode. This will be the mode |
52 |
|
|
C associated with a file that is opened. |
53 |
|
|
COMMON /DFILE_I/ mUnitNumber, dUnitNumber, unitStatus, |
54 |
|
|
& accessMode, errorMode, |
55 |
|
|
& theAccessMode, theErrorMode, metaDataStatus |
56 |
|
|
INTEGER mUnitNumber(ioUnitsPerThread,MAX_NO_THREADS) |
57 |
|
|
INTEGER dUnitNumber(ioUnitsPerThread,MAX_NO_THREADS) |
58 |
|
|
INTEGER unitStatus (ioUnitsPerThread,MAX_NO_THREADS) |
59 |
|
|
INTEGER accessMode (ioUnitsPerThread,MAX_NO_THREADS) |
60 |
|
|
INTEGER errorMode (ioUnitsPerThread,MAX_NO_THREADS) |
61 |
|
|
INTEGER metaDataStatus(ioUnitsPerThread,MAX_NO_THREADS) |
62 |
|
|
INTEGER theAccessMode |
63 |
|
|
INTEGER theErrorMode |
64 |
|
|
|
65 |
|
|
C nameOfMFile - Name of metadata file used in I/O |
66 |
|
|
C nameOfDFile - Name of data file used in I/O |
67 |
|
|
COMMON /DFILE_C/ nameOfMfile, nameOfDfile |
68 |
|
|
CHARACTER*(MAX_LEN_FNAM) nameOfMfile(ioUnitsPerThread,MAX_NO_THREADS) |
69 |
|
|
CHARACTER*(MAX_LEN_FNAM) nameOfDfile(ioUnitsPerThread,MAX_NO_THREADS) |
70 |
|
|
|
71 |
|
|
C ioBuf_R4 - IO buffer for 32-bit floating point IO. |
72 |
|
|
C Sized to fit anything up to a global domain 3d field. |
73 |
|
|
C ( but without overlaps ) |
74 |
|
|
C ioBuf_R8 - IO buffer for 64-bit floating point IO. |
75 |
|
|
C Sized to fit anything up to a global domain 3d field. |
76 |
|
|
C ( but without overlaps ) |
77 |
|
|
COMMON /DFILE_R/ |
78 |
|
|
& ioBuf_R8, ioBuf_R4 |
79 |
|
|
Real*8 ioBuf_R8( sNx*nSx*nPx * sNy*nSy*nPy * Nz ) |
80 |
|
|
Real*4 ioBuf_R4( sNx*nSx*nPx * sNy*nSy*nPy * Nz ) |
81 |
|
|
|