ADAS Subroutine cxgfil
SUBROUTINE CXGFIL( MXA , MXB , IZ0 , AMSSNO , & N , N1 , TIEV , NDIV , & ANGDIV , NPTS , CEMIS , WAVLN , & CWLN , XA , YA , XB , & YB & ) C C C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: CXGFIL ********************* C C PURPOSE: FILLS ADAS306 AND 308 GRAPH ARRAYS. C C CALLING PROGRAM: C6OUTG ; C8OUTG. C C INPUT : (I*4) MXA = MAXIMUM NUMBER OF POINTS IN GRAPH A. C INPUT : (I*4) MXB = MAXIMUM NUMBER OF POINTS IN GRAPH B. C INPUT : (I*4) IZ0 = TARGET NUCLEAR CHARGE. C INPUT : (R*8) AMSSNO = ATOMIC MASS NUMBER OF TARGET. C INPUT : (I*4) N = UPPER PRINCIPAL QUANTUM NUMBER OF C TRANSITION. C INPUT : (I*4) N1 = LOWER PRINCIPAL QUANTUM NUMBER OF C TRANSITION. C INPUT : (R*8) TIEV = ION TEMPERATURE. C UNITS: A C INPUT : (I*4) NDIV = NUMBER OF DIVISIONS ON X AXIS OF PLOT. C INPUT : (R*8) ANGDIV = NO. OF ANGSTROMS PER DIVISION. C INPUT : (I*4) NPTS = NUMBER OF POINTS OF DATA. C INPUT : (R*8) CEMIS() = COLUMN EMISSIVITIES. C UNITS: PHOT CM-2 SEC-1 C DIMENSION: MXA C INPUT : (R*8) WAVLN() = WAVELENGTHS. C UNITS: A C DIMENSION: MXA C C OUTPUT (R*8) CWLN = CENTRAL WAVELENGTH ON GRAPH. C UNITS: A C OUTPUT: (R*8) XA() = X DATA POINTS FOR GRAPH A. C DIMENSION: MXA C OUTPUT: (R*8) YA() = Y DATA POINTS FOR GRAPH A. C DIMENSION: MXA C OUTPUT: (R*8) XB() = X DATA POINTS FOR GRAPH B. C DIMENSION: MXB C OUTPUT: (R*8) YB() = Y DATA POINTS FOR GRAPH B. C DIMENSION: MXB C C (I*4) MIDDIV = CENTRAL DIVISION ON GRAPH. C (I*4) I = LOOP INDEX. C (I*4) J = LOOP INDEX. C C (R*8) Z0 = REAL VALUE = IZ0. C (R*8) XN = REAL VALUE = N. C (R*8) XN1 = REAL VALUE = N1. C (R*8) G = C C (R*8) MINVAL = MINIMUM VALUE BELOW WHICH YB IS SET TO ZERO C C ROUTINES: NONE C C AUTHOR: JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC) C K1/0/87 C JET EXT. 5183 C C DATE: 22/11/93 C C----------------------------------------------------------------------- C C----------------------------------------------------------------------- INTEGER IZ0, MXA, MXB, N INTEGER N1, NDIV, NPTS REAL*8 AMSSNO, ANGDIV, CEMIS(MXA), CWLN REAL*8 TIEV, WAVLN(MXA), XA(MXA), XB(MXB) REAL*8 YA(MXA), YB(MXB)