Search Site | Contact Details | FAQ

ADAS Subroutine xxdata_35

       subroutine xxdata_35( iunit   , 
     &                       ndedge  , ndpts  ,
     &                       iedge   , ipts   , 
     &                       edge    , energy , trans
     &                     )

C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: xxdata_35 ******************
C
C  PURPOSE:  To fetch data from an adf35 data set.
C
C  SUBROUTINE:
C
C  input : (i*4)  iunit    = unit to which input file is allocated
C  input : (i*4)  ndedge   = maximum number of energy edges
C  input : (i*4)  ndpts    = maximum number of energy points
C
C  output: (i*4)  iedge    = number of energy edges
C  output: (i*4)  ipts     = number of energy points
C  output: (r*8)  edge()   = energies of the edges (eV).
C  output: (r*8)  energy() = tabulated energies (eV).
C  output: (r*8)  trans()  = tabulated transmission.
C
C ROUTINES:
C          routine    source    brief description
C          -------------------------------------------------------------
C          i4unit     ADAS      fetch unit number for message output
C
C
C
C VERSION  : 1.1                          
C DATE     : 19-07-2003
C MODIFIED : Martin O'Mullane
C              - First version
C
C-----------------------------------------------------------------------
      INTEGER             IEDGE,       IPTS,        IUNIT,       NDEDGE
      INTEGER             NDPTS
      REAL*8              EDGE(NDEDGE),             ENERGY(NDPTS)
      REAL*8              TRANS(NDPTS)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk