Sources Esope | Cast3M

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