ADAS Subroutine ceigrp

      FUNCTION CEIGRP(CHR)
C
C---------------------------------------------------------------------
C
C  ****************** FORTRAN77 FUNCTION: CEIGRP  ********************
C
C  PURPOSE: RETURNS EISSNER CODE FOR AN ORBITAL
C
C
C  INPUT :  (C*2)   CHR    = ORBITAL (EG.  '2S')
C
C  OUTPUT:  (C*1)   CEIGRP = EISSNER CODE
C
C           (I*4)   I      = GENERAL INDEX (EG. 'A')
C
C  SUBROUTINES:  NONE
C  AUTHOR:  W.J. DICKSON, JET
C
C  DATE:    20/10/89

C
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 VERSION: 1.2                          DATE: 19-02-03
C MODIFIED:  H.P. SUMMERS 
C		- EXTENDED RANGE
C           - ALTERED ORBITALS TO INCLUDE 'J'
C           - A POINT OF CONFUSION BETWEEN CONDON
C              & SHORTLEY, COWAN AND ADASDR 
C
C-----------------------------------------------------------------------
      CHARACTER*2         CHR