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