2a3bf4ec32
Former-commit-id:fda897d2d0[formerly253e8bc948] [formerly295cbf95e5[formerly 0816cd253c86acc699cb90866131619c4679f631]] Former-commit-id:295cbf95e5Former-commit-id:ae3d17c698
16 lines
1,010 B
Text
Executable file
16 lines
1,010 B
Text
Executable file
C**********************************************************************
|
|
C* *
|
|
C* Function statement for missing value test. When using this *
|
|
C* test it is important to remember to include this file AFTER *
|
|
C* all declarations, parameter statements, and SAVE statements, but *
|
|
C* BEFORE any DATA statements (for IRIX compatibility). It is also *
|
|
C* necessary to include the file (GEMPRM.PRM) that contains the *
|
|
C* parameter statements for the missing data values (RMISSD AND *
|
|
C* RDIFFD). *
|
|
C** *
|
|
C* Log: *
|
|
C* J. Wu/GSC 08/00 documented about IRIX compatibility *
|
|
C**********************************************************************
|
|
C
|
|
LOGICAL ERMISS
|
|
ERMISS (xxxx) = ( ABS ( xxxx - RMISSD ) .lt. RDIFFD )
|