Search Site | Contact Details | FAQ

ADAS Subroutine b5wr12

      SUBROUTINE B5WR12( IUNIT  , DATE   , IZ1   , IL    ,
     &                   NDMET  , NDTEM  , NDDEN ,
     &                   NMET   , IMETR  ,
     &                   IFOUT  , MAXT   , TINE  ,
     &                   IDOUT  , MAXD   , DINE  ,
     &                   CSTRGA , STCKM
     &                 )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: B5WR12 *********************
C
C  PURPOSE: TO OUTPUT METASTABLE POPULATION PARAMETERS TO THE PASSING
C           FILE ON STREAM 'IUNIT'.
C
C  CALLING PROGRAM: ADAS205
C
C  SUBROUTINE:
C
C  INPUT :  (I*4)  IUNIT   = OUTPUT STREAM NUMBER
C  INPUT :  (C*8)  DATE    = CURRENT DATE AS 'DD/MM/YY'
C  INPUT :  (I*4)  IZ1     = RECOMBINING ION CHARGE
C                            (NOTE: IZ1 SHOULD EQUAL Z+1)
C  INPUT :  (I*4)  IL      = NUMBER OF INDEX ENERGY LEVELS
C
C  INPUT :  (I*4)  NDMET   = MAX. NO. OF METASTABLES ALLOWED
C  INPUT :  (I*4)  NDTEM   = MAX. NO. OF TEMPERATURES ALLOWED
C  INPUT :  (I*4)  NDDEN   = MAX. NUMBER OF DENSITIES ALLOWED
C
C  INPUT :  (I*4)  NMET    = NUMBER OF METASTABLES ( 1 -> 5 )
C  INPUT :  (I*4)  IMETR() = INDEX OF METASTABLES IN COMPLETE LEVEL LIST
C
C  INPUT :  (I*4)  IFOUT   = 1 => INPUT TEMPERATURES IN KELVIN
C                            2 => INPUT TEMPERATURES IN EV
C                            3 => INPUT TEMPERATURES IN REDUCED FORM
C  INPUT :  (I*4)  MAXT    = NUMBER OF INPUT TEMPERATURES (1 -> 20)
C  INPUT :  (R*8)  TINE()  = ELECTRON TEMPERATURES (UNITS: SEE 'IFOUT')
C
C  INPUT :  (I*4)  IDOUT   = 1 => INPUT DENSITIES IN CM-3
C                            2 => INPUT DENSITIES IN REDUCED FORM
C  INPUT :  (I*4)  MAXD    = NUMBER OF INPUT DENSITIES (1 -> 20)
C  INPUT :  (R*8)  DINE()  = ELECTRON DENSITIES (UNITS: SEE 'IFOUT')
C
C  INPUT :  (C*18) CSTRGA()= INDEX LEVEL CONFIGURATIONS
C  INPUT :  (R*8)  STCKM(,,)=METASTABLE STATE POPULATIONS:
C                            1ST DIMENSION = METASTABLE STATE INDEX
C                            2ND DIMENSION = TEMPERATURE INDEX
C                            3RD DIMENSION = DENSITY INDEX
C
C           (I*4)  L1      = PARAMETER = 1
C           (I*4)  L2      = PARAMETER = 2
C           (I*4)  L3      = PARAMETER = 3
C
C           (I*4)  I       = GENERAL USE
C           (I*4)  IM      = ARRAY INDEX POINTER FOR METASTABLE STATES
C           (I*4)  IT      = ARRAY INDEX POINTER FOR TEMPERATURES
C           (I*4)  ID      = ARRAY INDEX POINTER FOR DENSITIES
C
C           (R*8)  RDEN()  = ELECTRON DENSITIES (UNITS: REDUCED FORM)
C           (R*8)  RTEM()  = ELECTRON TEMPERATURES (UNITS: REDUCED FORM)
C
C           (C*1)  CSTAR   = '*'
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          XXTCON     ADAS      CONVERTS ENTERED TEMP. VALUES TO EV.
C          XXDCON     ADAS      CONVERTS ENTERED DENSITY VALUES TO CM-3.
C
C AUTHOR:  PAUL E. BRIDEN (TESSELLA SUPPORT SERVICES PLC)
C          K1/0/81
C          JET EXT. 4569
C
C DATE:    09/10/90
C
C UPDATE:  20/05/93 - ADAS91 PEB: TO REFLECT CHANGES IN BXDATA THE
C                                 CHARACTER ARRAY CSTRGA IS NOW 18 BYTES
C                                 INSTEAD OF 12.
C                                 NOTE: ONLY THE FIRST 12 BYTES ARE
C                                       OUTPUT TO THE PASSING FILE.
C
C-----------------------------------------------------------------------
      CHARACTER*18        CSTRGA(IL)
      CHARACTER*8         DATE
      INTEGER             IDOUT,       IFOUT,       IL
      INTEGER             IMETR(NMET), IUNIT,       IZ1,         MAXD
      INTEGER             MAXT,        NDDEN,       NDMET,       NDTEM
      INTEGER             NMET
      REAL*8              DINE(MAXD),  STCKM(NDMET,NDTEM,NDDEN)
      REAL*8              TINE(MAXT)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk