Search Site | Contact Details | FAQ

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
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk