Esope source files

   1 : C FTAN      SOURCE    CHAT      05/01/13    00:11:01     5004           
   2 :       FUNCTION FTAN(X,Y,Z,SQ)                                                   
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 :       FTAN=0.D0                                                                 
   6 :       IF((X.EQ.0.D0).OR.(SQ.EQ.0.D0)) RETURN                                    
   7 :       FTAN= X*ATAN((Y*Z)/(X*SQ))                                                
   8 :       RETURN                                                                    
   9 :       END                                                                       
  10 :