Search Site | Contact Details | FAQ

ADAS Subroutine sfi2

      SUBROUTINE SFI2

      IMPLICIT REAL*8 (A-H,O-Z)
C-----------------------------------------------------------------------
C     PURPOSE: This subroutine find the value ln(SIGMA(XNEW))
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-07
C MODIFIED : Allan Whiteford
C             - Updated comments as part of subroutine documentation
C               procedure.
C----------------------------------------------------------------------

      COMMON/APRX/F(10),B(10),H(10),ABETA(10)
      COMMON/B/FSPL(1),XNEW(1)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk