Search Site | Contact Details | FAQ

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)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk