Search Site | Contact Details | FAQ

ADAS Subroutine d8tran

       subroutine d8tran(ndeng  , ndedge  , 
     &                   ieng   , iedge   , 
     &                   edge   , energy  , fraction , 
     &                   ein    , fout
     &                  )
 
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: D8TRAN *******************
C
C  PURPOSE:  To determine transmission fraction at energy ein.   
C
C  CALLING PROGRAM: adas408
C
C  FUNCTION:
C
C  input : (i*4)  ndeng    = maximum number of energies in adf35 file.
C  input : (i*4)  ndedge   = maximum number of energy edges in adf35 file.
C  input : (i*4)  ieng     = actual number of energies.
C  input : (i*4)  iedge    = actual number of edges.
C  input : (r*8)  edge     = tabulated edge energies (eV).
C  input : (r*8)  energy   = tabulated energies (eV).
C  input : (r*8)  fraction = tabulated transmission fractions.
C  input : (r*8)  ein      = user supplied energy (eV).
C
C  output: (r*8)  fout     = transmission fraction at ein.
C
C  NOTES: No extrapolation is allowed and energies outside the range
C         and set to the limit values.
C
C  ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          i4indfvs   ADAS      Finds nearest index for a non-monotonic
C                               array
C          xxpint     ADAS      Order 3 polynomial interpolation.
C
C
C  VERSION  : 1.1                          
C  DATE     : 15-04-96
C  MODIFIED : Martin O'Mullane
C              - First version.
C
C  VERSION  : 1.2                          
C  DATE     : 23-07-2003
C  MODIFIED : Martin O'Mullane  
C              - Interpolates adf35 filter file data
C                rather than calculating the fraction from formulae.
C                This allows a wider range of filters.
C
C  VERSION  : 1.3
C  DATE     : 16-02-2005
C  MODIFIED : Martin O'Mullane
C              - Drop warnings to screen.
C
C-----------------------------------------------------------------------
      INTEGER             IEDGE,       IENG,        NDEDGE,      NDENG
      REAL*8              EDGE(NDEDGE),             EIN
      REAL*8              ENERGY(NDENG),            FOUT
      REAL*8              FRACTION(NDENG)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk