ADAS Subroutine init

      SUBROUTINE INIT(  ELEM, NION, NIONS, IZ,
     &                 SQI  ,SEQ   ,IZ0, SPEC)
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: DCISPF *********************
C
C  PURPOSE: DETRMINATION OF CHARGE OF THE SELECTED ION AND OBTAIN
C		SPECTROSCOPIC NOTATION.
C
C  CALLING PROGRAM: ADAS412
C
C  INPUT:	
C	
C	(C*2) ELEM : SELECTED ELEMENT.
C
C	(I*4) NIONS : NUMBER OF SELECTED IONS.
C 
C     (I*4) IZ(NION): CHARGES OF THE SELECTED IONS.
C
C  OUTPUT:
C
C     (C*2) SQI(NION): ISO-ELECTRONIC SEQUENCE - EG LI.
C
C     (C*7) SEQ(NION): ISO-ELECTRONIC SEQUENCE - EG Li-like.
C
C	(I*4) IZ0:        NUCLEAR CHARGE.
C 
C     (C*11) SPEC(NIONS):   ION IN SPECTROSCOPIC NOTATION.	
C
C AUTHOR: RICHARD MARTIN, UNIVERSITY OF STRATHCLYDE, OCTOBER 1997
C
C VERSION: 1.1						DATE: 27-10-97
C VERSION: 1.2						DATE: 01-12-97
C	MODIFIED: RICHARD MARTIN
C		- RE-ORDERED VARIABLE DECLARATIONS.
C
C-----------------------------------------------------------------------
C
      CHARACTER*2         ELEM
      CHARACTER*7         SEQ(NION)
      CHARACTER*11        SPEC(NION)
      CHARACTER*2         SQI(NION)
      INTEGER             IZ(NION),    IZ0,         NION,        NIONS