ADAS Subroutine xxelz0
SUBROUTINE XXELZ0 ( ELEM , IZ0 ) C----------------------------------------------------------------------- C C ******************* FORTRAN77 SUBROUTINE: XXEIZ0 ********************* C C PURPOSE: TO RETURN THE NUCLEAR CHARGE IZ0 FOR THE ELEMENT NANE C C CALLING PROGRAM: GENERAL USE C C SUBROUTINE: C C INPUT : (C*2) ELEN = ELEMENT NAME WITH NUCLEAR CHARGE 'IZ0' C OUTPUT: (I*4) IZ0 = ELEMENT NUCLEAR CHARGE C C (I*4) NSYM = PARAMETER = NUMBER OF SYMBOLS LISTED C C (I*4) I = GENERAL ARRAY USE C C (C*2) SYMBOL()= SYMBOLS OF FIRST 'NSYM' ELEMENTS. C ARRAY DIMENSION => NUCLEAR CHARGE C C NOTES: IF SYMBOL IS NOT RECOGNISED, I.E.NOT IN Z0 RANGE 1 & 'NSYM', C THEN THE INTEGER 'IZ0' IS RETURNED AS ZERO. C C ROUTINES: NONE C C C AUTHOR: Martin O'Mullane C DATE: 25-07-2007 C C Version : 1.1 C Date : 25-07-2007 C Modified: Martin O'Mullane C - First version. C C C----------------------------------------------------------------------- C----------------------------------------------------------------------- CHARACTER*(*) ELEM INTEGER IZ0