ADAS Subroutine cstrl
FUNCTION CSTRL(L) C C--------------------------------------------------------------------- C C ****************** FORTRAN77 FUNCTION: CSTRL ******************** C C PURPOSE: RETURNS CHARACTER CODE FOR L VALUE C C C INPUT : INTEGER L = Angular Momentumn (eg. 1 ) C C OUTPUT: (C*1) CSTRL = Angular Momentumn (eg. 'P') C C Returns a blank string if L > 15 C C SUBROUTINES: NONE C C AUTHOR: Martin O'Mullane, JET C C DATE: 2/10/97 C C VERSION: C MODIFIED: C C----------------------------------------------------------------------- INTEGER L