Search Site | Contact Details | FAQ

ADAS Subroutine d4wmet

C
      SUBROUTINE D4WMET( IUNIT  , IZ0 )

C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: D4WMET *******************
C
C  PURPOSE:  Write the number of metastables for each ionisation
C            stage to the top of resolved adf11 files.
C
C
C  CALLING PROGRAM: ADAS404 - lh404rr
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IUNIT    = OUTPUT UNIT NUMBER
C  INPUT : (I*4)  IZ0      =         NUCLEAR CHARGE READ
C
C
C  ROUTINES:  
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C
C
C AUTHOR:  Martin O'Mullane
C
C DATE:    4/11/99
C
C VERSION:  1.1                                   DATE: 4/11/99
C MODIFIED: Martin O'Mullane
C           - First version
C
C-----------------------------------------------------------------------
      INTEGER             IUNIT,       IZ0
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk