ADAS Subroutine omup
FUNCTION OMUP(IT,E,T,U,C) C----------------------------------------------------------------------- C C ******************** FORTRAN77 SUBROUTINE: OMUP ********************* C C PURPOSE: C TO CALCULATE UPSILONS FOR DIFFERENT TRANSITIONS C C CALLING PROGRAM: C OMEUPS C C INPUT: C (I) IT - TRANSITION TYPE C (R*8) E - EXCITATION ENRGY C (R*8) T - SCALED ENERGY VALUE OF QUADRATURE FIXED POINTS C (R*8) U - SPLINE FIT TO THE KNOT POINTS AND C REDUCED ENERGIES C (R*8) C - SCALABLE PARAMETER C OUTPUT: C (R*8) OMUP - THE UPSILONS C C C DATE: 21/06/95 VERSION 1.1 C AUTHOR: A.LANZAFAME (UNIV. OF STRATHCLYDE) & D.H.BROOKS C CONVERTED FROM BURGESS BBC BASIC C C DATE: 25/11/96 VERSION 1.2 C AUTHOR: WILLIAM OSBORN (TESSELLA SUPPORT SERVICES PLC) C CORRECTED IT.EQ.3 OPTION C C DATE: 13/05/99 VERSION 1.3 C AUTHOR: HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE C PREVENTED CHANGE OF INPUT SUBROUTINE PARAMETER T ON RETURN C C----------------------------------------------------------------------- INTEGER IT REAL*8 C, E, T, U