ADAS Subroutine i4schr

       FUNCTION I4SCHR(CHR,IABT)
C
C----------------------------------------------------------------
C  ************* FORTRAN77 FUNCTION: I4SCHR *********************
C
C PURPOSE: CONVERT FROM CHARACTER REPRESENTATION OF NUMBER OF
C          EQUIVALENT ELECTRONS TO DECIMAL FORM
C
C  FUNCTION:
C  INPUT : (C*1)   CHR     = CHARACTER FORM FOR THE NO. OF
C                            EQUIVALENT ELECTRONS
C  OUTPUT: (I*4)   I4SCHR  = INTEGER FORM FOR THE NO. OF
C                            EQUIVALENT ELECTRONS
C          (I*4)   IABT    = RETURN CODE:
C                               0 => NO ERROR
C                               1 => ERROR (A VALUE 'I4SCHR=0' WILL BE
C                                           RETURNED).
C          (I*4)   I       = GENERAL INTEGER
C
C  SUBROUTINES: NONE
C
C  AUTHOR: H. P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C
C  DATE:  30/10/95
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 22-1-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - PUT UNDER SCCS CONTROL
C
C VERSION: 1.2                          DATE: 19-02-03
C MODIFIED: H.P. SUMMERS 
C		- EXTENDED RANGE 
C
C---------------------------------------------------------------
      CHARACTER           CHR
      INTEGER             IABT