Search Site | Contact Details | FAQ

ADAS Subroutine abinew

       FUNCTION ABINEW(OA,YA,FA,A,B,N)                                 
C
       IMPLICIT REAL*8(A-H,O-Z)                                       
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 FUNCTION: ABINEW ***********************
C
C-----------------------------------------------------------------------
C  PURPOSE: EVALUATE INNER INTEGRALS FOR RATE COEFFICIENTS.
C
C  ABINEW IS CALLED BY QH & QHE.  THE PROCEDURES ALLOW FOR PROJECTILE
C  AND TARGET  MASSES.
C
C  INPUT                                                            
C      OA=VECTOR OF CROSS-SECTIONS (CM2)                             
C      YA=VECTOR OF REDUCED RELATIVE SPEEDS. 1ST VALUE IS AT THRESHOLD
C      FA=VECTOR OF ALPHAS  (12TH VALUE IS FOR EXTRAPOLATION, PROVIDED 
C         EXPLICITLY. EXTRAPOLATION BELOW YA(1) IS BASED ON FA(1))   
C         N.B. OA(1) MUST BE NON-ZERO.                              
C             (OA,YA AND FA ARE OF FIXED LENGTH =24)               
C                                                                 
C      A=LOWER INTEGRAL LIMIT                                    
C      B=UPPER INTEGRAL LIMIT                                   
C      N=NUMBER OF CROSS-SECTIONS
C  OUTPUT                      
C      ABINEW=DEFINITE INTEGRAL.                                        
C
C  ********** H.P. SUMMERS,JET            18 FEB 1987  ****************
C  **********                        COR. 31 JUL 1990  **************** 
C  **********                             15 JUL 1991  REORDER EVAL AT 
C                                                      LABEL 50
C
C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 16-1-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST VERSION
C
C VERSION: 1.2				DATE: 16-05-07
C MODIFIED: Allan Whiteford
C	    - Updated comments as part of subroutine documentation
C             procedure.
C
C-----------------------------------------------------------------------
      INTEGER             N
      REAL*8              A,           B,           FA(24),      OA(24)
      REAL*8              YA(24)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk