23 |
LOGICAL globalFile |
LOGICAL globalFile |
24 |
C Local |
C Local |
25 |
LOGICAL useCurrentDir |
LOGICAL useCurrentDir |
26 |
|
_RL dummyRL(1) |
27 |
CHARACTER*(2) fType |
CHARACTER*(2) fType |
28 |
INTEGER nNz |
INTEGER nNz |
29 |
INTEGER iRec |
INTEGER iRec |
51 |
CALL MDS_WRITE_FIELD( |
CALL MDS_WRITE_FIELD( |
52 |
I fullName, writeBinaryPrec, |
I fullName, writeBinaryPrec, |
53 |
I globalFile, useCurrentDir, |
I globalFile, useCurrentDir, |
54 |
I fType, nNz, 1, nNz, field, |
I fType, nNz, 1, nNz, dummyRL, field, |
55 |
I iRec, myIter, myThid ) |
I iRec, myIter, myThid ) |
56 |
#endif |
#endif |
57 |
RETURN |
RETURN |