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