istdesc.f

Go to the documentation of this file.

C> @file
C> @brief Check whether a descriptor is WMO-standard.
C>
C> @author J. Ator @date 2004-08-18
 
C> Check whether a descriptor is WMO-standard.
C>
C> Given the WMO bit-wise representation of an FXY value for a descriptor,
C> this function determines whether the descriptor is WMO-standard.
C>
C> If a descriptor is not WMO-standard, then by definition it is a
C> local descriptor.
C>
C> @param[in] IDN - integer: WMO bit-wise representation of FXY value
C> for descriptor.
C> @returns istdesc - integer: Flag indicating whether IDN is a
C> WMO-standard descriptor:
C> - 0 = No
C> - 1 = Yes
C>
C> @author J. Ator @date 2004-08-18
        FUNCTION istdesc( IDN )
 
        CHARACTER*6     adsc, adn30
 
        adsc = adn30( idn, 6 )
 
        READ(adsc,'(I1,I2,I3)') IF,ix,iy
        IF ( IF .EQ. 1 ) THEN
 
C           ADSC IS A REPLICATION DESCRIPTOR AND THEREFORE STANDARD
C           BY DEFAULT.
 
            istdesc = 1
        ELSE IF ( IF .EQ. 2 ) THEN
 
C           ADSC IS AN OPERATOR DESCRIPTOR
 
            istdesc = iokoper( adsc )
        ELSE IF ( ( ix .LT. 48 ) .AND. ( iy .LT. 192 ) ) THEN
            istdesc = 1
        ELSE
            istdesc = 0
        END IF
 
        RETURN
        END