idn30.f

Go to the documentation of this file.

C> @file
C> @brief Convert an FXY value from a character string to the
C> WMO bit-wise representation.
C>
C> @author J. Woollen @date 1994-01-06
 
C> Convert an FXY value from a character string to the
C> WMO bit-wise representation.
C>
C> For an description of the WMO bit-wise representation of the FXY
C> value, see ifxy().
C>
C> This function is the logical inverse of function adn30().
C>
C> @param[in] ADN30 - character*(*): FXY value. Must be of length 5 or 6.
C> @param[in] L30 - integer: Length of ADN30; can be either 5 or 6
C> characters.
C> @returns idn30 - integer: WMO bit-wise representation of FXY value.
C>
C> @author J. Woollen @date 1994-01-06
      FUNCTION idn30(ADN30,L30)
 
      COMMON /hrdwrd/ nbytw,nbitw,iord(8)
 
      CHARACTER*(*) adn30
      CHARACTER*128 bort_str
 
C----------------------------------------------------------------------
C----------------------------------------------------------------------
 
      IF(len(adn30).LT.l30) GOTO 900
      IF(l30.EQ.5) THEN
         READ(adn30,'(I5)') idn30
         IF(idn30.LT.0 .OR. idn30.GT.65535) GOTO 901
      ELSEIF(l30.EQ.6) THEN
         idn30 = ifxy(adn30)
      ELSE
         GOTO 902
      ENDIF
 
C  EXITS
C  -----
 
      RETURN
900   WRITE(bort_str,'("BUFRLIB: IDN30 - FUNCTION INPUT STRING ",A,'//
     . '" CHARACTER LENGTH (",I4,") IS TOO SHORT (< L30,",I5)')
     . adn30,len(adn30),l30
      CALL bort(bort_str)
901   WRITE(bort_str,'("BUFRLIB: IDN30 - DESCRIPTOR INTEGER '//
     . 'REPRESENTATION, IDN30 (",I8,"), IS OUTSIDE 16-BIT RANGE '//
     . '(0-65535)")') idn30
      CALL bort(bort_str)
902   WRITE(bort_str,'("BUFRLIB: IDN30 - FUNCTION INPUT STRING ",A,'//
     . '" CHARACTER LENGTH (",I4,") MUST BE EITHER 5 OR 6")')
     . adn30,l30
      CALL bort(bort_str)
      END