ADAS Subroutine cstgrp

      FUNCTION CSTGRP(CHR)
C---------------------------------------------------------------------
C
C  ****************** FORTRAN77 FUNCTION: CSTGRP  ********************
C
C  PURPOSE: RETURNS TERM OF ORBITAL GIVEN IN THE EISSNER SINGLE
C           HEXADECIMAL CHARACTER FORM
C
C
C  INPUT :  (C*1)   CHR    = HEX. ORBITAL CHARACTER (EG. 'A')
C
C  OUTPUT:  (C*2)   CSTGRP = ORBITAL TERM   (E.G. '4F')
C
C           (I*4)   I      = GENERAL INDEX
C
C  SUBROUTINES:  NONE
C  AUTHOR:  W.J. DICKSON, JET
C
C  DATE:    20/10/89
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                 - ALTERED ORBITALS TO INCLUDE 'J'
C                 - A POINT OF CONFUSION BETWEEN CONDON
C                   & SHORTLEY, COWAN AND ADASDR 
C
C-----------------------------------------------------------------------
      CHARACTER           CHR