Search Site | Contact Details | FAQ

ADAS Subroutine finter

       FUNCTION FINTER(EN)                         
       IMPLICIT REAL*8 (A-H,O-Z)                  
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 FUNCTION: FINTER ***********************
C
C  PURPOSE:  UNKNOWN
C
C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 16-1-96
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST VERSION
C
C-----------------------------------------------------------------------
C
      FINTER=1.0/((EN+10.0)*(EN+10.0))          
      RETURN                                   
      END                                      
      REAL*8              EN
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk