cadn30.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2004-08-18
    
C> GIVEN THE BIT-WISE REPRESENTATION OF THE FXY VALUE
C>   FOR A DESCRIPTOR, THIS ROUTINE CALLS FUNCTION ADN30 AND STORES
C>   ITS RETURN VALUE (I.E. THE ASCII-EQUIVALENT FXY VALUE) AS THE
C>   ROUTINE OUTPUT VALUE.  THIS MECHANISM (I.E. A FORTRAN SUBROUTINE
C>   WRAPPER RETURNING ADN AS A CALL PARAMETER, RATHER THAN DIRECTLY
C>   CALLING THE FORTRAN FUNCTION ADN30 FROM WITHIN A C ROUTINE)
C>   ALLOWS SAFE AND PORTABLE (ALBEIT INDIRECT) ACCESS TO THE ADN30
C>   FUNCTION LOGIC FROM WITHIN A C ROUTINE.
C>
C> PROGRAM HISTORY LOG:
C> 2004-08-18  J. ATOR    -- ORIGINAL AUTHOR
C>
C> USAGE:    CADN30( IDN, ADN )
C>   INPUT ARGUMENT LIST:
C>     IDN      - INTEGER: BIT-WISE REPRESENTATION OF FXY VALUE
C>
C>   OUTPUT ARGUMENT LIST:
C>     ADN      - CHARACTER*(*): ASCII-CHARACTER FORM OF IDN
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        ADN30
C>    THIS ROUTINE IS CALLED BY: NUMMTB   RESTD    STSEQ
C>                               Normally not called by application
C>                               programs but it could be.
C>
    SUBROUTINE cadn30( IDN, ADN )



    character*(*)   adn
    character*6 adn30

    adn = adn30( idn, 6 )

    RETURN
    END