Esope source files

   1 : C FZ3       SOURCE    CHAT      05/01/13    00:14:18     5004           
   2 :       FUNCTION FZ3(D,XA,XU,SQA,SQU,RSINT)                                       
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 :       IF(RSINT.NE.0.D0) GOTO 2                                                  
   6 : 1     FZ3=0.D0                                                                  
   7 :       RETURN                                                                    
   8 : 2     FZ3=-RSINT*(ATAN((D*XA)/(RSINT*SQA))-ATAN((D*XU)/(RSINT*SQU)))            
   9 :       RETURN                                                                    
  10 :       END                                                                       
  11 :