************************************************************************
*                               BEGIN                                  *
*                                                                      *
*   Declarations of NUM_ data type conversion routines and arguments   *
*   ----------------------------------------------------------------   *
*                                                                      *
*                               BEGIN                                  *
************************************************************************
*
*    Authors :
*     R.F. Warren-Smith (DUVAD::RFWS)
*
*    History :
*     16-AUG-1988:  Original version (DUVAD::RFWS)
*     24-OCT-1991 (RFWS):
*        Added declarations for internal (NUM1_) functions.
 

*  Declarations of internal functions which encapsulate the most
*  important conversions.
      BYTE NUM1_RTOB
      BYTE NUM1_WTOUB
      INTEGER * 2 NUM1_ITOUW
      INTEGER * 2 NUM1_ITOW
      INTEGER * 2 NUM1_RTOW
      INTEGER * 2 NUM1_UBTOUW
      INTEGER * 2 NUM1_UBTOW
      INTEGER NUM1_BTOI
      INTEGER NUM1_UBTOI
      INTEGER NUM1_UWTOI
      INTEGER NUM1_WTOI
      REAL NUM1_ITOR
      REAL NUM1_WTOR
 

*   BYTE dummy arguments.
      BYTE NUM_ARGB
      BYTE NUM_ARGB1
      BYTE NUM_ARGB2

 
*   Functions for data type conversion to BYTE.
      BYTE NUM_BTOB
      BYTE NUM_UBTOB
      BYTE NUM_DTOB
      BYTE NUM_ITOB
      BYTE NUM_RTOB
      BYTE NUM_UWTOB
      BYTE NUM_WTOB
 
 
*   UNSIGNED BYTE dummy arguments.
      BYTE NUM_ARGUB
      BYTE NUM_ARGUB1
      BYTE NUM_ARGUB2

 
*   Functions for data type conversion to UNSIGNED BYTE.
      BYTE NUM_BTOUB
      BYTE NUM_UBTOUB
      BYTE NUM_DTOUB
      BYTE NUM_ITOUB
      BYTE NUM_RTOUB
      BYTE NUM_UWTOUB
      BYTE NUM_WTOUB
 
 
*   WORD dummy arguments.
      INTEGER*2 NUM_ARGW
      INTEGER*2 NUM_ARGW1
      INTEGER*2 NUM_ARGW2

 
*   Functions for data type conversion to WORD.
      INTEGER*2 NUM_BTOW
      INTEGER*2 NUM_UBTOW
      INTEGER*2 NUM_DTOW
      INTEGER*2 NUM_ITOW
      INTEGER*2 NUM_RTOW
      INTEGER*2 NUM_UWTOW
      INTEGER*2 NUM_WTOW
 
 
*   UNSIGNED WORD dummy arguments.
      INTEGER*2 NUM_ARGUW
      INTEGER*2 NUM_ARGUW1
      INTEGER*2 NUM_ARGUW2

 
*   Functions for data type conversion to UNSIGNED WORD.
      INTEGER*2 NUM_BTOUW
      INTEGER*2 NUM_UBTOUW
      INTEGER*2 NUM_DTOUW
      INTEGER*2 NUM_ITOUW
      INTEGER*2 NUM_RTOUW
      INTEGER*2 NUM_UWTOUW
      INTEGER*2 NUM_WTOUW
 
 
*   INTEGER dummy arguments.
      INTEGER NUM_ARGI
      INTEGER NUM_ARGI1
      INTEGER NUM_ARGI2

 
*   Functions for data type conversion to INTEGER.
      INTEGER NUM_BTOI
      INTEGER NUM_UBTOI
      INTEGER NUM_DTOI
      INTEGER NUM_ITOI
      INTEGER NUM_RTOI
      INTEGER NUM_UWTOI
      INTEGER NUM_WTOI
 
 
*   REAL dummy arguments.
      REAL NUM_ARGR
      REAL NUM_ARGR1
      REAL NUM_ARGR2

 
*   Functions for data type conversion to REAL.
      REAL NUM_BTOR
      REAL NUM_UBTOR
      REAL NUM_DTOR
      REAL NUM_ITOR
      REAL NUM_RTOR
      REAL NUM_UWTOR
      REAL NUM_WTOR
 
 
*   DOUBLE PRECISION dummy arguments.
      DOUBLE PRECISION NUM_ARGD
      DOUBLE PRECISION NUM_ARGD1
      DOUBLE PRECISION NUM_ARGD2

 
*   Functions for data type conversion to DOUBLE PRECISION.
      DOUBLE PRECISION NUM_BTOD
      DOUBLE PRECISION NUM_UBTOD
      DOUBLE PRECISION NUM_DTOD
      DOUBLE PRECISION NUM_ITOD
      DOUBLE PRECISION NUM_RTOD
      DOUBLE PRECISION NUM_UWTOD
      DOUBLE PRECISION NUM_WTOD
 

 
************************************************************************
*                               END                                    *
*                                                                      *
*   Declarations of NUM_ data type conversion routines and arguments   *
*                                                                      *
*                               END                                    *
************************************************************************
