Esope source files

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