Search Site | Contact Details | FAQ

ADAS Subroutine i4eiz0

      FUNCTION I4EIZ0 ( ESYM )
C-----------------------------------------------------------------------
C
C *************** FORTRAN77 INTEGER*4 FUNCTION: I4EIZ0 *****************
C
C PURPOSE: TO RETURN THE NUCLEAR CHARGE FOR THE ELEMENT SYMBOL ESYM
C          (INTEGER*4 FUNCTION VERSION OF 'XXEIZ0')
C
C CALLING PROGRAM: GENERAL USE
C
C FUNCTION:
C
C          (I*4)  I4EIZ0  = FUNCTION NAME -
C                           ELEMENT NUCLEAR CHARGE
C          (C*2)  ESYM    = SYMBOL OF ELEMENT WITH NUCLEAR CHARGE I4EIZ0
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 (NORMAL).
C                           ARRAY DIMENSION => NUCLEAR CHARGE
C          (C*2)  SYMBLC()= SYMBOLS OF FIRST 'NSYM' ELEMENTS (L.C.).
C                           ARRAY DIMENSION => NUCLEAR CHARGE
C          (C*2)  SYMBUC()= SYMBOLS OF FIRST 'NSYM' ELEMENTS (U.C.).
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 'I4EIZ0' IS RETURNED AS ZERO.
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:     13/02/91
C
C UPDATE:
C
C VERSION 1.2:  					DATE: 30/01/98  
C MODIFIED: HP SUMMERS 
C		- ALLOWED SEQUENCE SYMBOL TO BE IN  UPPER, LOWER OR MIXED 
C		  CASE.
C VERSION 1.3:  					DATE: 37/09/99  
C MODIFIED: HP SUMMERS 
C		- EXTENDED ELEMENT RANGE TO URANIUM.
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*2         ESYM
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk