Search Site | Contact Details | FAQ

ADAS Subroutine axomup

      FUNCTION AXOMUP(IT,E,T,U,C)
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN77 SUBROUTINE: AXOMUP *********************
C
C  PURPOSE:
C        TO INTERPOLATE OMEGAS OR UPSILONS FOR DIFFERENT TRANSITIONS
C
C  CALLING PROGRAM:
C        OMEUPS
C
C  INPUT:
C        (I*4)    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 OR TEMPERATURES 
C        (R*8)    C - SCALABLE PARAMETER
C
C  COMMON:  
C     /BURG/
C        (L*4)    LUPSIL = .TRUE.  (UPSILON FITTING)
C                          .FALSE. (OMEGA FITTING  )
C 
C  OUTPUT:
C        (R*8) AXOMUP - THE UPSILONS
C
C
C  WRITTEN:   CONVERSION OF OMUP BY A.LANZAFAME & D.H.BROOKS BY
C             HUGH P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C             TEL. 0141-553-4196
C
C  DATE:     24/11/96				VERSION 1.1
C  MODIFIED:  FIRST RELEASE
C
C  DATE:   18/05/99				VERSION 1.2
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
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk