cadn30.f

Go to the documentation of this file.

C> @file
C> @brief Convert an FXY value from its bit-wise (integer)
C> representation to its six character representation
 
C> This subroutine converts an FXY value from its bit-wise (integer)
C> representation to its 6 character representation.  It is similar
C> to function adn30(), except that it always returns 6 characters,
C> and it always returns its output as a call parameter instead of a
C> function value, which in turn allows it to be more easily called
C> from within a C language function.
C>
C> @author J. Ator
C> @date 2004-08-18
C>
C> @param[in] IDN -- integer: Bit-wise representation of FXY value
C> @param[out] ADN -- character*6: FXY value
C>
C> <b>Program History Log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2004-08-18 | J. Ator | Original author |
C>
    SUBROUTINE cadn30( IDN, ADN )
 
    character*(*)   adn
    character*6 adn30
 
    adn = adn30( idn, 6 )
 
    RETURN
    END