idn30.f

Go to the documentation of this file.

C> @file
C> @brief Convert an FXY value from its five or six character
C> representation to its bit-wise (integer) representation

C> This function converts an FXY value from its 5 or 6 character
C> representation to its bit-wise (integer) representation.
C>
C> @author J. Woollen
C> @date 1994-01-06
C>
C> @param[in] ADN30 -- character*(*): FXY value
C> @param[in] L30 -- integer: Length of ADN30; can be either 5 or 6
C>                   characters
C> @returns idn30 -- integer: Bit-wise representation of FXY value
C>
C> @remarks
C> - This function is the logical inverse of function adn30().
C>
C> <b>Program History Log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 1994-01-06 | J. Woollen | Original author |
C> | 1998-07-08 | J. Woollen | Replaced call to CRAY library routine "ABORT" with call to new internal BUFRLIB routine bort() |
C> | 2003-11-04 | S. Bender  | Added remarks and routine interdependencies |
C> | 2003-11-04 | D. Keyser  | Unified/portable for WRF; added history documentation |
C>
      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