Download floz.eso

Back to the list

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

© Cast3M 2003 - All rights reserved.
Disclaimer