Search Site | Contact Details | FAQ

ADAS Subroutine lstsq

      SUBROUTINE LSTSQ(IT,C,E12,GF,N,T,U,B,RMS)
C-----------------------------------------------------------------------
C  ******************** FORTRAN77 SUBROUTINE: LSTSQ ********************
C
C  PURPOSE: TO PERFORM FIVE POINT SPLINE FIT TO REDUCED OMEGAS
C
C  INPUT:
C           E12  TRANSITION ENERGY  (RYD)
C           GF   GF
C           IT   TRANSITION TYPE
C           T    ENERGY
C           U    OMEGA
C           N    NUMBER OF DATA POINTS
C           C    C PARAMETER
C
C  OUTPUT:
C           B    KNOTS VALUES
C
C  LOCAL VARIABLES/CONSTANTS:
C
C           A(,)
C           V
C           W
C           Y()
C           XX
C           YY
C
C  CALLS:
C          SPLS     - CALCULATE CUBIC SPLINE FIT COEFFICIENTS
C          ETRED    - CALCULATE REDUCED ENERGIES
C          OURED    - CALCULATE REDUCED OMEGAS
C          MATIN1   - INVERT MATRIX TO GET KNOT POINTS
C          ONE      - GET KNOT POINTS IF ONLY ONE DATA POINT
C          TWO      - GET KNOT POINTS IF ONLY TWO DATA POINTS
C          THREE    - GET KNOT POINTS IF ONLY THREE DATA POINTS
C          FOUR     - GET KNOT POINTS IF ONLY FOUR DATA POINTS
C
C  DATE: 02-07-95				VERSION 1.1
C  WRITTEN: A.LANZAFAME & D.H.BROOKS
C           UNIV.OF STRATHCLYDE, 
C           CONVERTED FROM BBC BASIC
C-----------------------------------------------------------------------
      INTEGER             IT,          N
      REAL*8              B(5),        C,           E12,         GF
      REAL*8              RMS,         T(N),        U(N)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk