Sources Esope | Cast3M

floz
C FLOZ      SOURCE    CHAT      05/03/07    21:15:05     5041
      FUNCTION FLOZ(UPSI,Z,Y1,Y2,SQ22Z,SQ21Z,SQ12Z,SQ11Z)
      IMPLICIT REAL*8 (A-H,O-Z)
      IMPLICIT INTEGER(I-N)
      FLOZ=0.D0
      IF(ABS(Z).LT.UPSI) RETURN
      FLOZ=-Z*LOG(((Y2+SQ22Z)*(Y1+SQ11Z))/((Y2+SQ12Z)*(Y1+SQ21Z)))
      RETURN
      END