Z:\sl\eng\cf\ctoi.f.html

    c==============================CTOI.FOR=================================
    c  Converts a character string of numbers into an integer.   /DEE 1-89
    c
          SUBROUTINE CTOI(C,INT,N)
          CHARACTER*(*) C
          INTEGER SIGN, INT, N
          INT = 0
          SIGN = 1
          DO 10 J=1, N
          IF (C(J:J) .EQ. '-') THEN
             SIGN = -1
          ELSE
            NUM = ICHAR(C(J:J))-48
            INT = INT+NUM*10**(N-J)
          ENDIF
     10   CONTINUE
          INT = SIGN * INT
          RETURN
          END