istdesc.f

Go to the documentation of this file.

C> @file
C> @brief Check whether a descriptor is standard

C> Given the bit-wise (integer) representation of a descriptor, this
C> function determines whether the descriptor is WMO-standard.
C>
C> <p>If a descriptor is not WMO-standard, then by definition it is a
C> local descriptor.
C>
C> @author J. Ator
C> @date 2004-08-18
C>
C> @param[in] IDN -- integer: Bit-wise representation of FXY value for
C>                   descriptor
C> @returns istdesc -- integer: Flag indicating whether IDN is a
C>                     WMO-standard descriptor:
C>                        - 0 = No
C>                        - 1 = Yes
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2004-08-18 | J. Ator | Original author |
C>
    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