Sources Esope | Cast3M

fplq1
C FPLQ1     SOURCE    CHAT      05/01/13    00:07:27     5004
C
      FUNCTION FPLQ1(X,COST,Z,RHO)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      D2=X**2+Z**2
      XRCOS=X*RHO*COST
      A=XRCOS-D2
      B=D2-(X*COST)**2
      C=SQRT(D2-2.*XRCOS+RHO**2)
      FPLQ1=A/(B*C)
      RETURN
      END