Search Site | Contact Details | FAQ

ADAS Subroutine ccdata

       SUBROUTINE CCDATA( TERAY  , NERAY  , EBRAY  , N1N    , SRAY  ,
     &                    F1     , F2     , F3     , BN     ,
     &			  NN     , IZ     , INFILE , INUNIT ,
     &                    MAXNE  , MAXTE  , MAXEB  ,
     &			  INCOUNT, ITCOUNT, IECOUNT, LEVEL  ,
     &                    EBREF  , TEREF  , NEREF  , 
     &                    INA    , IEA    , ITA    , NLEVEL , FLAG  )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: CCDATA *********************
C
C  PURPOSE:  TO  FETCH  DATA  FROM  BUNDLE-N POPULATION 
C            FILES OF TYPE ADF26.
C
C  CALLING PROGRAM: ADAS312
C
C  SUBROUTINE:
C
C  INPUT : (C*80) INFILE   = MVS DATA SET NAME OF DATA SET BEING READ
C  INPUT : (I*4)  INUNIT   = UNIT TO WHICH INPUT FILE IS ALLOCATED.
C  INPUT : (I*4)  MAXNE    = MAXIMUM NUMBER OF DENSITIES
C  INPUT : (I*4)  MAXTE    = MAXIMUM NUMBER OF TEMPERATURES
C  INPUT : (I*4)  MAXEB    = MAXIMUM NUMBER OF BEAM ENERGIES
C
C  OUTPUT: (R*8)  TERAY()  = TEMPERATURE SET   (EV)
C                            1ST. DIM.: TEMPERATURE INDEX
C  OUTPUT: (R*8)  NERAY()  = DENSITY SET       (CM-3)
C                            1ST. DIM.: DENSITY INDEX
C  OUTPUT: (R*8)  EBRAY()  = BEAM ENERGY SET   (EV/AMU)
C                            1ST. DIM.: BEAM ENERGY INDEX
C  OUTPUT: (R*8)  N1N(,,)  = ???
C                            1ST. DIM.: BEAM ENERGY INDEX
C                            2ND. DIM.: DENSITY INDEX 
C                            3RD. DIM.: TEMPERATURE INDEX 
C  OUTPUT: (R*8)  SRAY(,,) = COLL. RAD. IONIS COEFFT.   (CM3 S-1)
C                            1ST. DIM.: BEAM ENERGY INDEX
C                            2ND. DIM.: DENSITY INDEX 
C                            3RD. DIM.: TEMPERATURE INDEX
C  OUTPUT: (R*8)  F1(,,,)  = F1 EXPANSION FACTOR OF BN 
C                            1ST. DIM.: BEAM ENERGY INDEX
C                            2ND. DIM.: DENSITY INDEX 
C                            3RD. DIM.: TEMPERATURE INDEX
C                            4TH. DIM.: REPRES. PRINC. QUANTUM SHELL INDEX
C  OUTPUT: (R*8)  F2(,,,)  = F2 EXPANSION FACTOR OF BN 
C                            1ST. DIM.: BEAM ENERGY INDEX
C                            2ND. DIM.: DENSITY INDEX 
C                            3RD. DIM.: TEMPERATURE INDEX
C                            4TH. DIM.: REPRES. PRINC. QUANTUM SHELL INDEX
C  OUTPUT: (R*8)  F3(,,,)  = F3 EXPANSION FACTOR OF BN 
C                            1ST. DIM.: BEAM ENERGY INDEX
C                            2ND. DIM.: DENSITY INDEX 
C                            3RD. DIM.: TEMPERATURE INDEX
C                            4TH. DIM.: REPRES. PRINC. QUANTUM SHELL INDEX
C  OUTPUT: (R*8)  BN(,,,)  = BN FACTOR
C                            1ST. DIM.: BEAM ENERGY INDEX
C                            2ND. DIM.: DENSITY INDEX 
C                            3RD. DIM.: TEMPERATURE INDEX
C                            4TH. DIM.: REPRES. PRINC. QUANTUM SHELL INDEX
C  OUTPUT: (R*8)  NN(,,,)  = POPULATION CONVERSION FACTOR
C                            1ST. DIM.: BEAM ENERGY INDEX
C                            2ND. DIM.: DENSITY INDEX 
C                            3RD. DIM.: TEMPERATURE INDEX
C                            4TH. DIM.: REPRES. PRINC. QUANTUM SHELL INDEX
C  OUTPUT: (I*4)  IZ       = IMPURITY ION CHARGE
C  OUTPUT: (I*4)  INCOUNT  = NUMBER OF DENSITIES
C  OUTPUT: (I*4)  ITCOUNT  = NUMBER OF TEMPERATURES
C  OUTPUT: (I*4)  IECOUNT  = NUMBER OF BEAM ENERGIES
C  OUTPUT: (I*4)  LEVEL    = ??? APPEARS UNUSED ???
C  OUTPUT: (R*8)  EBREF    = REFERENCE BEAM ENERGY (EV/AMU)
C  OUTPUT: (R*8)  TEREF    = REFERENCE TEMPERATURE (EV)
C  OUTPUT: (R*8)  NEREF    = REFERENCE DENSITY     (CM-3)
C  OUTPUT: (I*4)  INA()    = NUMBER OF LEVELS
C                            1ST. DIM.: DENSITY INDEX 
C  OUTPUT: (I*4)  ITA()    = NUMBER OF LEVELS
C                            1ST. DIM.: TEMPERATURE INDEX 
C  OUTPUT: (I*4)  IEA()    = NUMBER OF LEVELS
C                            1ST. DIM.: BEAM ENERGY INDEX 
C  OUTPUT: (I*4)  NLEVEL   = NUMBER OF LEVELS
C
C  OUTPUT: (I*4)  FLAG()   = ARRAY INDICTAING WHETHER DATA HAS BEEN
C			     EXTRACTED FROM THE ADF26 TYPE FILE.
C
C          (I*4)  IT       = GENERAL INDEX
C          (I*4)  IN       = GENERAL INDEX
C          (I*4)  IE       = GENERAL INDEX
C          (R*8)  TE       = GENERAL REAL VARIABLE
C          (R*8)  NE       = GENERAL REAL VARIABLE
C          (R*8)  EB       = GENERAL REAL VARIABLE
C          (C*132)LINE     = GENERAL STRING
C          (C*2)  LEVELS() = PRINC. QU. SHELL STRINGS
C
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          I4UNIT     ADAS      FETCH UNIT NUMBER FOR OUTPUT OF MESSAGES
C          CCFIND     ADAS      ???
C
C
C
C AUTHOR:  HARVEY ANDERSON, UNIVERSITY OF STRATHCLYDE/JET
C          JA8.08
C          TEL. 0141-553-4196
C
C
C DATE:    16/05/97
C
C UNIX-IDL PORT: H.P.SUMMERS
C
C VERSION: 1.1				DATE: 10-07-97
C MODIFIED: HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C	    - PUT UNDER S.C.C.S. CONTROL
C
C VERSION: 1.2				DATE: 15-03-99
C MODIFIED: HARVEY ANDERSON, UNIVERSITY OF STRATHCLYDE
C	    - INTRODUCED THE ARRAY FLAG, WHICH IS EMPLOYED TO
C	      INDICATE THE DATA WHICH HAS BEEN EXTRACTED FROM
C	      THE ADF26 TYPE FILE.
C	
C VERSION: 1.3				DATE:	28-04-99
C MODIFIED: RICHARD MARTIN
C  		ADDED MISSING CARRIAGE RETURN AFTER FORMAT STATEMENT 1006
C
C-----------------------------------------------------------------------
      CHARACTER*80        INFILE
      INTEGER             FLAG(NLEVEL),             IEA(MAXEB),  IECOUNT
      INTEGER             INA(MAXNE),  INCOUNT,     INUNIT
      INTEGER             ITA(MAXTE),  ITCOUNT,     IZ,          LEVEL
      INTEGER             MAXEB,       MAXNE,       MAXTE,       NLEVEL
      REAL*8              BN(MAXEB,MAXNE,MAXTE,NLEVEL)
      REAL*8              EBRAY(MAXEB),             EBREF
      REAL*8              F1(MAXEB,MAXNE,MAXTE,NLEVEL)
      REAL*8              F2(MAXEB,MAXNE,MAXTE,NLEVEL)
      REAL*8              F3(MAXEB,MAXNE,MAXTE,NLEVEL)
      REAL*8              N1N(MAXEB,MAXNE,MAXTE),   NERAY(MAXNE)
      REAL*8              NEREF,       NN(MAXEB,MAXNE,MAXTE,NLEVEL)
      REAL*8              SRAY(MAXEB,MAXNE,MAXTE),  TERAY(MAXTE)
      REAL*8              TEREF
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk