Search Site | Contact Details | FAQ

ADAS Subroutine xxeiz0

      SUBROUTINE XXEIZ0 ( ESYM , IZ0 )
C-----------------------------------------------------------------------
C
C ******************* FORTRAN77 SUBROUTINE: XXEIZ0 *********************
C
C PURPOSE: TO RETURN THE NUCLEAR CHARGE IZ0 FOR THE ELEMENT SYMBOL ESYM
C
C CALLING PROGRAM: GENERAL USE
C
C SUBROUTINE:
C
C  INPUT : (C*2)  ESYM    = SYMBOL OF ELEMENT 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:   PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C           K1/0/81
C           JET EXT. 4569
C
C DATE:     21/08/90
C
C UPDATE:     15/01/91 - PE BRIDEN - ADAS91 - ARGUMENTS REVERSED
C
C MODIFIED:
C
C VERSION:  1.1	TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)  14/09/95
C	    -	FIRST RELEASE (UNIX PORT)
C
C VERSION:  1.2 HUGH SUMMERS				     17/09/99
C           -   INCREASED ELEMENT NUMBER TO 92
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      CHARACTER*2         ESYM
      INTEGER             IZ0
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk