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)