istdesc.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2004-08-18
    
C> GIVEN THE BIT-WISE REPRESENTATION OF THE FXY VALUE
C>   FOR A DESCRIPTOR, THIS FUNCTION DETERMINES WHETHER THE DESCRIPTOR
C>   IS A WMO-STANDARD DESCRIPTOR OR A LOCAL DESCRIPTOR.
C>
C> PROGRAM HISTORY LOG:
C> 2004-08-18  J. ATOR    -- ORIGINAL AUTHOR
C>
C> USAGE:    ISTDESC( IDN )
C>   INPUT ARGUMENT LIST:
C>     IDN      - INTEGER: BIT-WISE REPRESENTATION OF FXY VALUE
C>       FOR DESCRIPTOR TO BE CHECKED
C>
C>   OUTPUT ARGUMENT LIST:
C>     ISTDESC  - INTEGER: RETURN VALUE:
C>         0 - IDN IS A LOCAL DESCRIPTOR
C>         1 - IDN IS A WMO-STANDARD DESCRIPTOR
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        ADN30    IOKOPER
C>    THIS ROUTINE IS CALLED BY: IREADMT  RESTD    STNDRD
C>                               Normally not called by application
C>                               programs but it could be.
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