Search Site | Contact Details | FAQ

ADAS Subroutine d9wr11

C Copyright (c) 1997, Strathclyde University.
      SUBROUTINE D9WR11( IUNIT  , DSNINC , DSNMTR , ELEMT ,
     &                   UID    , DATE   , IZ0    ,
     &                   NDLINE , NLINE  ,
     &                   TITL   , IZION  , CIMET  ,
     &                   NTDIM  , NDDIM  , ITMAX  , IDMAX ,
     &                   TEV    , DENS   ,
     &                   GCF
     &                 )
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: D9WR11 *******************
C
C  PURPOSE:  TO OUTPUT DATA TO GCF PASSING FILE.
C
C  CALLING PROGRAM: ADAS409
C
C
C  SUBROUTINE:
C
C  INPUT : (I*4)  IUNIT   = OUTPUT UNIT NUMBER FOR RESULTS
C  INPUT : (C*80) DSNINC  = INPUT SCRIPT DATA SET NAME
C  INPUT : (C*80) DSNMTR  = INPUT ACD MASTER FILE NAME
C  INPUT : (C*2)  ELEMT   = ELEMENT SYMBOL.
C
C  INPUT : (C*6)  UID     = USER IDENIFIER
C  INPUT : (C*8)  DATE    = CURRENT DATE
C  INPUT : (I*4)  IZ0     = NUCLEAR CHARGE
C
C  INPUT : (I*4)  NDLINE  = MAXIMUM NUMBER OF SPECTRUM LINES
C  INPUT : (I*4)  NLINE   = NUMBER OF SPECTRUM LINES
C  INPUT : (C*12) TITL()  = TITLE FOR 1ST COMPONENT OF LINE
C  INPUT : (I*4)  IZION() = ION CHARGE FOR 1ST COMPONENT OF LINE
C  INPUT : (C*1)  CIMET() = +/- SHIFT OF ION CHARGE - 1ST COMPONENT
C
C  INPUT : (I*4)  NTDIM   = MAMXIMUM NUMBER OF INPUT TEMPERATURES
C  INPUT : (I*4)  NDDIM   = MAMXIMUM NUMBER OF INPUT DENSITIES
C  INPUT : (I*4)  ITMAX   = NUMBER OF INPUT TEMPERATURES
C  INPUT : (I*4)  IDMAX   = NUMBER OF INPUT DENSITIES
C  INPUT : (R*8)  TEV()   = ELECTRON TEMPERATURES (UNITS: EV)
C  INPUT : (R*8)  DENS()  = ELECTRON DENSITIES  (UNITS: CM-3)
C
C  INPUT : (R*4)  GCF(,,) = G(TE) FUNCTION (CM3 S-1)
C                             1ST DIM: TEMPERATURE INDEX
C                             2ND DIM: DENSITY INDEX
C                             3RD DIM: LINE INDEX
C
C          (I*4) I         = GENERAL USE
C          (I*4) J         = GENERAL USE
C          (I*4) K         = GENERAL USE
C          (I*4) L         = GENERAL USE
C          (I*4) I1        = GENERAL USE
C          (I*4) I2        = GENERAL USE
C          (I*4) IT        = GENERAL USE
C          (C*80)CLINE     = GENERAL USE
C
C
C ROUTINES: NONE
C
C AUTHOR:  Alessandro Lanzafame
C
C DATE:    13th December 1995
C
C-----------------------------------------------------------------------
C
C VERSION: 1.1                                          DATE: 12-03-98
C MODIFIED: RICHARD MARTIN
C               - PUT UNDER SCCS CONTROL
C
C VERSION: 1.2                          			  DATE: 20-11-98
C MODIFIED: RICHARD MARTIN & MARTIN O'MULLANE
C                   - REMOVED SEARCH FOR BRACKETS IN DSNINC AND INITIAL STRING 
C                       AS STRING = '        '
C
C-----------------------------------------------------------------------
      CHARACTER           CIMET(NLINE)
      CHARACTER*8         DATE
      CHARACTER*80        DSNINC,      DSNMTR
      CHARACTER*2         ELEMT
      CHARACTER*12        TITL(NLINE)
      CHARACTER*80        UID
      INTEGER             IDMAX,       ITMAX,       IUNIT,       IZ0
      INTEGER             IZION(NLINE),             NDDIM,       NDLINE
      INTEGER             NLINE,       NTDIM
      REAL*8              DENS(NDDIM), GCF(NTDIM,NDDIM,NDLINE)
      REAL*8              TEV(NTDIM)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk