ADAS Subroutine i4jgrp

      INTEGER FUNCTION I4JGRP(CHR)
C     
C---------------------------------------------------------------------
C
C  ****************** FORTRAN77 FUNCTION: I4JGRP  ********************
C
C  PURPOSE: RETURNS DECIMAL FORM OF EISSNER SINGLE HEX CHARACTER
C           ORBITAL GIVEN IN THE EISSNER SINGLE HEXADECIMAL CHARACTER 
C           FORM
C
C  INPUT  (C*2)   CHR    = HEX. ORBITAL CHARACTER (EG. 'A')
C
C  OUTPUT  (I*4)  I4JGRP = DECIMAL ORBITAL CHARACTER (E.G. '10')
C
C  SUBROUTINES:  NONE
C
C  AUTHOR:  W.J. DICKSON, JET
C
C  DATE:    20/10/89
C
C UNIX-IDL PORT:
C	   WILLIAM OSBORN, TESSELLA SUPPORT SERVICES PLC.
C
C DATE:    22ND APRIL 1996
C
C VERSION: 1.1				DATE: 22-04-96
C MODIFIED: WILLIAM OSBORN
C	    - FIRST VERSION. NO CHANGES TO IBM CODE.
C VERSION: 1.2				DATE: 19-02-03
C MODIFIED: H.P. SUMMERS 
C		- EXTENDED RANGE
C VERSION: 1.3				DATE: 19-02-03
C MODIFIED: R. MARTIN			DATE: 24-03-03
C		- Fixed bugs in last version.
C
C-----------------------------------------------------------------------
      CHARACTER           CHR