Esope source files

   1 : C FPLQ5     SOURCE    CHAT      05/01/13    00:07:39     5004           
   2 :       FUNCTION FPLQ5(X,COST,Z,RHO)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       D2=X**2+Z**2
   6 :       XCOS=X*COST
   7 :       XRCOS=RHO*XCOS
   8 :       C=SQRT(D2-2.*XRCOS+RHO**2)
   9 :       FPLQ5=C+XCOS*LOG(C+RHO-XCOS)
  10 :       RETURN
  11 :       END
  12 :  
  13 :