ADAS Subroutine xfesym
FUNCTION XFESYM ( IZ0 ) C----------------------------------------------------------------------- C C ************** FORTRAN77 CHARACTER*2 FUNCTION: XFESYM **************** C C PURPOSE: TO RETURN THE SYMBOL FOR THE ELEMENT WITH NUCLEAR CHARGE IZ0 C (CHARACTER*2 FUNCTION VERSION OF 'XXESYM') C C CALLING PROGRAM: GENERAL USE C C FUNCTION: C C (C*2) XFESYM = FUNCTION NAME - C SYMBOL OF ELEMENT WITH NUCLEAR CHARGE 'IZ0' C (I*4) IZ0 = ELEMENT NUCLEAR CHARGE C C (C*2) SYMBOL()= SYMBOLS OF FIRST 92 ELEMENTS. C ARRAY DIMENSION => NUCLEAR CHARGE C C NOTES: IF NUCLEAR CHARGE IS OUT OF RANGE, I.E.NOT BETWEEN 1 & 92, C THEN THE CHARACTER STRING 'XFESYM' IS RETURNED BLANK. C C ROUTINES: NONE C C C AUTHOR: PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC) C K1/0/81 C JET EXT. 4569 C C DATE: 12/02/91 C C UPDATES: 25/10/94 L. JALOTA (TESSELLA SUPPORT SERVICES PLC) C CHANGED CASE OF SYMBOL TO LOWER CASE FOR UNIX C C VERSION: 1.2 C UPDATES: 17/09/99 HUGH SUMMERS - INCREASED ELEMENT NUMBER TO 92 C C----------------------------------------------------------------------- C----------------------------------------------------------------------- INTEGER IZ0