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