Search Site | Contact Details | FAQ

ADAS Subroutine d4znel

      SUBROUTINE D4ZNEL ( IZ1  , IZ2  ,
     &                    NEL1 , NEL2 ,
     &                    IZ0  , IZE1 , IZE2
     &                  )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: D4ZNEL *********************
C
C  PURPOSE: TO RETURN THE MAXIMUM AND MINIMUM CHOSEN FOR THE IONIC
C           CHARGE (+1) AND THE NUMBER OF ELECTRONS IN EACH CASE.
C
C  CALLING PROGRAM: ADAS404
C
C  SUBROUTINE:
C
C  OUTPUT: (I*4)  IZ1     = MINIMUM ALLOWED IONIC CHARGE + 1
C  OUTPUT: (I*4)  IZ2     = MAXIMUM ALLOWED IONIC CHARGE + 1
C
C  OUTPUT: (I*4)  NEL1    = NUMBER OF ELECTRONS IN STATE 'IZ1'
C  OUTPUT: (I*4)  NEL2    = NUMBER OF ELECTRONS IN STATE 'IZ2'
C
C  INPUT : (I*4)  IZ0     = ELEMENT NUCLEAR CHARGE
C  INPUT : (I*4)  IZE1    = LOWEST ION CHARGE
C  INPUT : (I*4)  IZE2    = HIGHEST ION CHARGE  (NB. EXCLUDING THE  BARE
C                           NUCLEUS - ONE MORE STAGE IS BROUGHT IN AUTO-
C                           MATICALLY IN THE IONISATION BALANCE)
C
C  ROUTINES: NONE
C
C  AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C           K1/0/81
C           JET EXT. 4569
C
C  DATE:    08/10/90
C
C UNIX-IDL PORT:
C
C VERSION: 1.1				DATE: 11-20-96
C MODIFIED: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC)
C		- FIRST CONVERTED
C
C VERSION: 1.2				DATE: 20-10-97
C MODIFIED: LORNE HORTON (JET)
C       - REMOVED NONSENSE WITH NIND, NSET AND YEAR
C
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
      INTEGER             IZ0,         IZ1,         IZ2,         IZE1
      INTEGER             IZE2,        NEL1,        NEL2
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk