idn30.f

Go to the documentation of this file.

C> @file
C> @author WOOLLEN @date 1994-01-06
      
C> THIS FUNCTION CONVERTS A DESCRIPTOR FROM ITS FIVE OR SIX
C>   CHARACTER ASCII REPRESENTATION TO ITS BIT-WISE (INTEGER)
C>   REPRESENTATION.
C>
C> PROGRAM HISTORY LOG:
C> 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
C> 1998-07-08  J. WOOLLEN -- REPLACED CALL TO CRAY LIBRARY ROUTINE
C>                           "ABORT" WITH CALL TO NEW INTERNAL BUFRLIB
C>                           ROUTINE "BORT"
C> 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C>                           INTERDEPENDENCIES
C> 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
C>                           DOCUMENTATION (INCLUDING HISTORY); OUTPUTS
C>                           MORE COMPLETE DIAGNOSTIC INFO WHEN ROUTINE
C>                           TERMINATES ABNORMALLY
C>
C> USAGE:    IDN30 (ADN30, L30)
C>   INPUT ARGUMENT LIST:
C>     ADN30    - CHARACTER*(*): CHARACTER FORM OF DESCRIPTOR (FXY
C>                VALUE)
C>     L30      - INTEGER: LENGTH OF ADN30 (NUMBER OF CHARACTERS, 5 OR
C>                6)
C>
C>   OUTPUT ARGUMENT LIST:
C>     IDN      - INTEGER: BIT-WISE REPRESENTATION OF DESCRIPTOR (FXY)
C>                VALUE
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        ADN30    BORT     IFXY
C>    THIS ROUTINE IS CALLED BY: STBFDX
C>                               Normally not called by any application
C>                               programs.
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