-
Notifications
You must be signed in to change notification settings - Fork 0
/
ERMISS.FNC
16 lines (16 loc) · 1010 Bytes
/
ERMISS.FNC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 )