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)