Search Site | Contact Details | FAQ

ADAS Subroutine axiups

      SUBROUTINE AXIUPS(IT,C,E,P,NT,T,U)
C-----------------------------------------------------------------------
C  ******************  FORTRAN77 SUBROUTINE: AXIUPS  *******************
C
C  PURPOSE: TO CALCULATE A SET OF USPILONS BY INTERPOLATION OF THE
C           BURGESS FIVE-POINT SPLINE
C
C  INPUT:
C    IT  TRANSITION TYPE
C    C   UPSILON SCALING PARAMETER
C    E   EXCITATION ENERGY
C    P   KNOTS
C    NT  NUMBER OF TEMPERATURE POINTS
C    T   TEMPERATURE
C
C  OUTPUT:
C    U   UPSILON
C
C  ROUTINES:
C    AXOUPS - TO CALCULATE THE MAXWELL AVERAGED UPSILONS
C
C  AUTHOR:  HUGH P. SUMMERS, UNIVERSITY OF STRATHCLYDE
C           TEL. 0141-553-4196
C
C  DATE:    24 NOVEMBER 1996
C
C  MODIFICATION HISTORY:
C
C  VERSION: 1.1   HUGH SUMMERS  24/11/96
C  MODIFIED:      FIRST RELEASE.
C
C------------------------------------------------------------------------
      INTEGER             IT,          NT
      REAL*8              C,           E,           P(5),        T(NT)
      REAL*8              U(NT)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk