Search Site | Contact Details | FAQ

ADAS Subroutine b8cors

      SUBROUTINE B8CORS(NUMT , TEVA , COEFF)


C-----------------------------------------------------------------------
C
C  ******************* FORTRAN77 SUBROUTINE: B8CORP ********************
C
C  PURPOSE: There is a low temperature problem in the calculation
C           of the sxb coefficients. Replace the effetive zero
C           values with an exp(E/kT) derived from first good points.
C
C
C  CALLING PROGRAM: ADAS208 (B8WRPS)
C
C
C  INPUT : (I*4)  NUMT    = NUMBER OF TEMPERATURES
C  INPUT : (I*4)  TEVA    = TEMPERATURES
C
C  I/O   : (R*4) COEFF()  = SXB DATA
C
C
C ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C          XXSPLN     ADAS      SPLINE SUBROUTINE
C          R8FUN1     ADAS      REAL*8 FUNCTION: ( X -> X )
C
C AUTHOR:  Martin O'Mullane
C
C
C DATE:    17-02-2006
C
C
C VERSION : 1.1
C DATE    : 17-02-2006
C MODIFIED: Martin O'Mullane
C           - First version
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             NUMT
      REAL*8              COEFF(NUMT), TEVA(NUMT)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk