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)