Search Site | Contact Details | FAQ

ADAS Subroutine zero1

       SUBROUTINE ZERO1(A,B,VA,VB,D1,X,XI,Z,E,TIF,T2)  
C
       IMPLICIT REAL*8 (A-H,O-Z)                 
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: ZERO1 **********************
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
       X=(A*VB-B*VA)/(VB-VA)                    
    9  X1=X                                    
       T=Z+E*X                                    
       D=TIF*X                                     
       V=0.5-T2*XIP(XI,D)/(T*T)                     
       IF(V)11,16,10                                 
   10     B=X                                         
       VB=V                                            
       GO TO 12                                         
   11     A=X                                            
       VA=V                                               
   12     X=0.5*(A+B)                                      
       T=Z+E*X                                              
       D=TIF*X                                               
       V=0.5-T2*XIP(XI,D)/(T*T)                               
       IF(V)14,16,13                                           
   13     B=X                                                   
       VB=V                                                      
       GO TO 15                                                   
   14     A=X                                                      
       VA=V                                                         
   15     X=(A*VB-B*VA)/(VB-VA)                                      
       IF(DABS(X1-X)/X-D1)16,16,9                                     
   16     RETURN                                                       
      END                                                               
      REAL*8              A,           B,           D1,          E
      REAL*8              T2,          TIF,         VA,          VB
      REAL*8              X,           XI,          Z
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk