0c25458510
Former-commit-id:4bfbdad17d[formerly9f8cb727a5] [formerly4bfbdad17d[formerly9f8cb727a5] [formerly8485b90ff8[formerly bf53d06834caa780226121334ac1bcf0534c3f16]]] Former-commit-id:8485b90ff8Former-commit-id:33a67cdd82[formerlya28d70b5c5] Former-commit-id:e5543a0e86
16 lines
1,010 B
Text
16 lines
1,010 B
Text
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 )
|