19 |
C Functions |
C Functions |
20 |
INTEGER ILNBLNK,IFNBLNK |
INTEGER ILNBLNK,IFNBLNK |
21 |
C Local |
C Local |
22 |
|
LOGICAL useCurrentDir |
23 |
CHARACTER*(2) fType |
CHARACTER*(2) fType |
24 |
INTEGER nNz |
INTEGER nNz |
25 |
INTEGER irec |
INTEGER iRec |
26 |
INTEGER s1Lo,s1Hi,s2Lo,s2Hi |
INTEGER s1Lo,s1Hi,s2Lo,s2Hi |
27 |
CHARACTER*(MAX_LEN_FNAM) fullName |
CHARACTER*(MAX_LEN_FNAM) fullName |
28 |
C |
C |
38 |
s2Hi = ILNBLNK(suff) |
s2Hi = ILNBLNK(suff) |
39 |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
40 |
ENDIF |
ENDIF |
41 |
C |
|
42 |
|
useCurrentDir = .FALSE. |
43 |
fType='RS' |
fType='RS' |
44 |
nNz=Nr |
nNz=Nr |
45 |
irec=1 |
iRec=1 |
46 |
#ifdef ALLOW_MDSIO |
#ifdef ALLOW_MDSIO |
47 |
CALL MDSREADFIELD( fullName, readBinaryPrec, fType, |
CALL MDS_READ_FIELD( |
48 |
& nNz, field, irec, myThid ) |
I fullName, readBinaryPrec, useCurrentDir, |
49 |
|
I fType, nNz, 1, nNz, |
50 |
|
O field, |
51 |
|
I iRec, myThid ) |
52 |
#endif |
#endif |
53 |
RETURN |
RETURN |
54 |
END |
END |