Search Site | Contact Details | FAQ

ADAS Subroutine drv

      SUBROUTINE DRV
      IMPLICIT REAL*8 (A-H,O-Z)
C-----------------------------------------------------------------------
C
C     PURPOSE: Calculates coefficients for spline approximation
C              of tabulated function in 10 points together with
C              subroutine DRVSPL.
C
C-----------------------------------------------------------------------
C
C ADAS305 version. Developed from JETSHP.STARK.FORT (H P Summers).
C
C VERSION  : 1.1
C DATE     : 24-02-2005
C MODIFIED : Martin O'Mullane
C             - First version.
C
C VERSION  : 1.2
C DATE     : 16-05-2007
C MODIFIED : Allan Whiteford
C             - Updated comments as part of subroutine documentation
C               procedure.
C
C----------------------------------------------------------------------
      COMMON/APRX/F(10),B(10),H(10),ABETA(10)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk