1      SUBROUTINE TOINT(ALPHA, IANS, IERR)
2C
3C***  CONVERT AN ALPHANUMERIC STRING INTO AN INTEGER CONSTANT
4C
5C***  INPUTS
6C
7C  ALPHA - ALPHANUMERIC STRING (MUST BE INTEGER)
8C
9C***  OUTPUTS
10C
11C   IANS - INTEGER RESULT
12C   IERR - ERROR CODE, 0=NO ERROR OR 1=CONSTANT NOT CORRECT TYPE
13C
14      INTEGER ALPHA,PERIOD
15C
16      DIMENSION ALPHA(80)
17C
18      DATA PERIOD / 4H.    /
19C
20      IERR=0
21      IER1=0
22      IER2=0
23C
24      LCOL=1
25C
26      CALL FINDCH(ALPHA, PERIOD, LCOL)
27C
28      IF(LCOL .LT. 81)IER1=1
29C
30      CALL TODEC(ALPHA, ANS, IER2)
31C
32      IF(IER1 .GT. 0)IERR=1
33      IF(IER2 .GT. 0)IERR=2
34C
35      SIGN=1
36      IF(ANS .LT. 0.)SIGN=-1
37      IANS=SIGN*(ABS(ANS)+0.5)
38C
39      RETURN
40      END
41