74 |
CHARACTER*(5) ctmp |
CHARACTER*(5) ctmp |
75 |
_RS ztmp(NrMax) |
_RS ztmp(NrMax) |
76 |
#endif |
#endif |
|
INTEGER misvalIntLoc |
|
77 |
REAL*8 misval_r8(2) |
REAL*8 misval_r8(2) |
78 |
REAL*4 misval_r4(2) |
REAL*4 misval_r4(2) |
79 |
INTEGER misval_int(2) |
INTEGER misval_int(2) |
83 |
|
|
84 |
C Handle missing value attribute (land points) |
C Handle missing value attribute (land points) |
85 |
C Defaults to UNSET_I |
C Defaults to UNSET_I |
|
misvalIntLoc = misvalInt(listId) |
|
86 |
DO ii=1,2 |
DO ii=1,2 |
87 |
misval_r4(ii) = misValLoc |
misval_r4(ii) = misValLoc |
88 |
misval_r8(ii) = misValLoc |
misval_r8(ii) = misValLoc |