<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='ADN30'><A href='../../html_code/bufr/adn30.f.html#ADN30' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A>
FUNCTION ADN30(IDN,L30) 10,3
C$$$ SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM: ADN30
C PRGMMR: WOOLLEN ORG: NP20 DATE: 1994-01-06
C
C ABSTRACT: THIS FUNCTION CONVERTS A DESCRIPTOR FROM ITS BIT-WISE
C (INTEGER) REPRESENTATION TO ITS FIVE OR SIX CHARACTER ASCII
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: ADN30 (IDN, L30)
C INPUT ARGUMENT LIST:
C IDN - INTEGER: BIT-WISE REPRESENTATION OF DESCRIPTOR (FXY)
C VALUE
C L30 - INTEGER: LENGTH OF ADN30 (NUMBER OF CHARACTERS, 5 OR
C 6)
C
C OUTPUT ARGUMENT LIST:
C ADN30 - CHARACTER*(*): CHARACTER FORM OF DESCRIPTOR (FXY
C VALUE)
C
C REMARKS:
C THIS ROUTINE CALLS: BORT
C THIS ROUTINE IS CALLED BY: CADN30 DXINIT ISTDESC NEMTBD
C NUMTAB RDMTBB RDMTBD READS3
C SEQSDX SNTBDE UFBQCD UPDS3
C WRDXTB
C Normally not called by any application
C programs.
C
C ATTRIBUTES:
C LANGUAGE: FORTRAN 77
C MACHINE: PORTABLE TO ALL PLATFORMS
C
C$$$
COMMON /HRDWRD/ NBYTW,NBITW,IORD(8)
CHARACTER*(*) ADN30
CHARACTER*128 BORT_STR
C----------------------------------------------------------------------
C----------------------------------------------------------------------
IF(LEN(ADN30).LT.L30 ) GOTO 900
IF(IDN.LT.0 .OR. IDN.GT.65535) GOTO 901
IF(L30.EQ.5) THEN
WRITE(ADN30,'(I5)') IDN
ELSEIF(L30.EQ.6) THEN
IDF = ISHFT(IDN,-14)
IDX = ISHFT(ISHFT(IDN,NBITW-14),-(NBITW-6))
IDY = ISHFT(ISHFT(IDN,NBITW- 8),-(NBITW-8))
WRITE(ADN30,'(I1,I2,I3)') IDF,IDX,IDY
ELSE
GOTO 902
ENDIF
DO I=1,L30
IF(ADN30(I:I).EQ.' ') ADN30(I:I) = '0'
ENDDO
C EXITS
C -----
RETURN
900 CALL BORT
('BUFRLIB: ADN30 - FUNCTION RETURN STRING TOO SHORT')
901 CALL BORT('BUFRLIB: ADN30 - INTEGER REPRESENTATION OF '//
. 'DESCRIPTOR OUT OF 16-BIT RANGE')
902 WRITE(BORT_STR,'("BUFRLIB: ADN30 - CHARACTER LENGTH (",I4,") '//
. 'MUST BE EITHER 5 OR 6")') L30
CALL BORT(BORT_STR)
END