6C_TITLE:   INTCH:  Convert character string to integerC @C_ARGS:    STRING   CHAR*  [I]  Character string to be converted6C          INTCH    I      [F]  Integer function valueC C_KEYS:    STRING, CHAR, I4C CC_LIMITS:  Integer must be in range -2,147,483,648 to 2,147,483,6474C           (assuming INTEGER defaults to INTEGER*4)C )C_HIST:    __apr86  RMX  ORIGINAL VERSIONC C_END:C      FUNCTION INTCH(STRING)      CHARACTER*(*) STRINGC      NCH=LEN(STRING)"      READ (STRING(1:NCH),9) INTCH 9    FORMAT (I<NCH>)      RETURN	      ENDCC6C_TITLE:   CHINT:  Convert integer to character stringC 7C_ARGS:    INTEG    I      [I]  Integer to be converted?C          CHINT    CHAR   [F]  Character string function valueC C_KEYS:    STRING, CHAR, I4C KC_LIMITS:  Function must be declared CHARACTER*n where n is large enough toLC          accomodate the largest integer expected (n = 10 covers all cases)C)C_HIST:    __apr86  RMX  ORIGINAL VERSIONC C_END:C)      CHARACTER*(*) FUNCTION CHINT(INTEG)      CHARACTER*12 STRINGC      WRITE (STRING,9) INTEG 9    FORMAT (I12)      DO 15 I=1,12&      IF (STRING(I:I).NE.' ') GO TO 20 15   CONTINUE 20   CHINT=STRING(I:12)      RETURN	      ENDCC=C_TITLE:   REALCH:  Convert character string to REAL*4 numberC @C_ARGS:    STRING   CHAR*  [I]  Character string to be converted5C          REALCH   R4     [F]  REAL*4 function valueC C_KEYS:    STRING, CHAR, R4C BC_LIMITS:  Magnitude must be smaller than 1.7E38.  Magnitudes less/C          than .29E-38 will be converted to 0.C )C_HIST:    __apr86  RMX  ORIGINAL VERSIONC C_END:C      FUNCTION REALCH(STRING)      CHARACTER*(*) STRINGC      NCH=LEN(STRING)#      READ (STRING(1:NCH),9) REALCH 9    FORMAT (G<NCH>.0)      RETURN	      ENDCC=C_TITLE:   CHREAL:  Convert REAL*4 number to character stringC 6C_ARGS:    R        R4     [I]  Number to be converted?C          CHREAL   CHAR   [F]  Character string function valueC C_KEYS:    STRING, CHAR, R4C EC_LIMITS:  Function must be declared CHARACTER*n where n is length of3C          largest string expected (n = 20 will do)C)C_HIST:    __apr86  RMX  ORIGINAL VERSIONC C_END:C&      CHARACTER*(*) FUNCTION CHREAL(R)      CHARACTER*20 STRINGC      WRITE (STRING,9)R 9    FORMAT (G20.10)      DO 15 I=1,20&      IF (STRING(I:I).NE.' ') GO TO 20 15   CONTINUE 20   CHREAL=STRING(I:20)      RETURN	      END