ADAS Subroutine d7lotz

      SUBROUTINE D7LOTZ(IZ0 ,  IZ1,
     &                  NPAR,
     &                  A   ,  B  ,  C)
 
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: D7LOTZ *********************
C
C
C  PURPOSE:
C           (1) RETURNS LOTZ PARAMETERS FOR A GIVEN Z AND ION STAGE
C
C               W LOTZ, IPP 1/62 & IPP 1/76
C
C           FOR ELEMENTS AND IONISATION STAGES NOT INCLUDED RETURNS
C
C           A(1)=4.5, B(1)=0, C(1)=0     NPAR=2
C           A(2)=4.5, B(2)=0, C(2)=0
C
C           FOR H- AND HE- LIKE
C           A(1)=4.5, B(1)=0, C(1)=0     NPAR=1
C
C           NOTE: NO TRAP FOR IZ1>IZ
C
C
C
C  CALLING PROGRAM: ADAS407
C
C  SUBROUTINE:
C
C
C  INPUT   : (I*4)  IZ0      = NUCLEAR CHARGE
C  INPUT   : (I*4)  IZ1      = FINAL ION CHARGE
C
C
C  OUTPUT  : (R*8)  NPAR     = NUMBER OF PARAMETER GROUPS
C            (R*8)  A()      = LOTZ A PARAMETER
C                              1ST DIM: GROUP INDEX
C            (R*8)  B()      = LOTZ B PARAMETER
C                              1ST DIM: GROUP INDEX
C            (R*8)  C()      = LOTZ C PARAMETER
C                              1ST DIM: GROUP INDEX
C
C  PROGRAM
C          : (I*4)  IZDIMD   = NUMBER OF ELEMENTS OF LOTZ DATA
C          : (I*4)  ISDIMD   = NUMBER OF ION STAGES
C          : (I*4)  IPDIMD   = NUMBER OF A,B,C PARAMETERS
C
C          : (L*4)  LZFND    = .TRUE. ELEMENT HAS LOTZ PARAMETERS
C          : (L*4)  LSFND    = .TRUE. ION STAGE HAS LOTZ PARAMETERS
C
C
C NOTE:
C
C ROUTINES:   NONE
C
C
C
C AUTHOR:  M O'MULLANE
C
C DATE:    7/07/94
C
C UNIX-IDL PORT:
C	   WILLIAM OSBORN, TESSELLA SUPPORT SERVICES PLC.
C
C DATE:    22ND APRIL 1996
C
C VERSION: 1.1				DATE: 22-04-96
C MODIFIED: WILLIAM OSBORN
C	    - FIRST VERSION. NO CHANGES TO IBM CODE.
C-----------------------------------------------------------------------
      INTEGER             IZ0,         IZ1,         NPAR
      REAL*8              A(IPDIMD),   B(IPDIMD),   C(IPDIMD)