NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
istdesc.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Check whether a descriptor is standard
3 
4 C> Given the bit-wise (integer) representation of a descriptor, this
5 C> function determines whether the descriptor is WMO-standard.
6 C>
7 C> <p>If a descriptor is not WMO-standard, then by definition it is a
8 C> local descriptor.
9 C>
10 C> @author J. Ator
11 C> @date 2004-08-18
12 C>
13 C> @param[in] IDN -- integer: Bit-wise representation of FXY value for
14 C> descriptor
15 C> @returns istdesc -- integer: Flag indicating whether IDN is a
16 C> WMO-standard descriptor:
17 C> - 0 = No
18 C> - 1 = Yes
19 C>
20 C> <b>Program history log:</b>
21 C> | Date | Programmer | Comments |
22 C> | -----|------------|----------|
23 C> | 2004-08-18 | J. Ator | Original author |
24 C>
25  FUNCTION istdesc( IDN )
26 
27  character*6 adsc, adn30
28 
29  adsc = adn30( idn, 6 )
30 
31  READ(adsc,'(I1,I2,I3)') IF,ix,iy
32  IF ( IF .EQ. 1 ) THEN
33 
34 C ADSC IS A REPLICATION DESCRIPTOR AND THEREFORE STANDARD
35 C BY DEFAULT.
36 
37  istdesc = 1
38  ELSE IF ( IF .EQ. 2 ) THEN
39 
40 C ADSC IS AN OPERATOR DESCRIPTOR
41 
42  istdesc = iokoper( adsc )
43  ELSE IF ( ( ix .LT. 48 ) .AND. ( iy .LT. 192 ) ) THEN
44  istdesc = 1
45  ELSE
46  istdesc = 0
47  END IF
48 
49  RETURN
50  END
function istdesc(IDN)
Given the bit-wise (integer) representation of a descriptor, this function determines whether the des...
Definition: istdesc.f:25
character *(*) function adn30(IDN, L30)
This function converts an FXY value from its bit-wise (integer) representation to its 5 or 6 characte...
Definition: adn30.f:28
INTEGER function iokoper(NEMO)
This function determines whether a specified mnemonic is a Table C operator supported by the BUFRLIB ...
Definition: iokoper.f:23