var/external/bufr/cadn30.f

   1         SUBROUTINE CADN30( IDN, ADN )
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    CADN30
   6 C   PRGMMR: ATOR             ORG: NP12       DATE: 2004-08-18
   7 C
   8 C ABSTRACT:  GIVEN THE BIT-WISE REPRESENTATION OF THE FXY VALUE
   9 C   FOR A DESCRIPTOR, THIS ROUTINE CALLS FUNCTION ADN30 AND STORES
  10 C   ITS RETURN VALUE (I.E. THE ASCII-EQUIVALENT FXY VALUE) AS THE
  11 C   ROUTINE OUTPUT VALUE.  THIS MECHANISM (I.E. A FORTRAN SUBROUTINE
  12 C   WRAPPER RETURNING ADN AS A CALL PARAMETER, RATHER THAN DIRECTLY
  13 C   CALLING THE FORTRAN FUNCTION ADN30 FROM WITHIN A C ROUTINE)
  14 C   ALLOWS SAFE AND PORTABLE (ALBEIT INDIRECT) ACCESS TO THE ADN30
  15 C   FUNCTION LOGIC FROM WITHIN A C ROUTINE.
  16 C
  17 C PROGRAM HISTORY LOG:
  18 C 2004-08-18  J. ATOR    -- ORIGINAL AUTHOR
  19 C
  20 C USAGE:    CADN30( IDN, ADN )
  21 C   INPUT ARGUMENT LIST:
  22 C     IDN      - INTEGER: BIT-WISE REPRESENTATION OF FXY VALUE
  23 C
  24 C   OUTPUT ARGUMENT LIST:
  25 C     ADN      - CHARACTER*(*): ASCII-CHARACTER FORM OF IDN
  26 C
  27 C REMARKS:
  28 C    THIS ROUTINE CALLS:        ADN30
  29 C    THIS ROUTINE IS CALLED BY: NUMMTB   RESTD    STSEQ
  30 C                               Normally not called by application
  31 C                               programs but it could be.
  32 C
  33 C ATTRIBUTES:
  34 C   LANGUAGE: FORTRAN 77
  35 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  36 C
  37 C$$$
  38
  39         CHARACTER*(*)   ADN
  40         CHARACTER*6     ADN30
  41
  42         ADN = ADN30( IDN, 6 )
  43
  44         RETURN
  45         END