Esope source files

   1 : C FR2       SOURCE    CHAT      05/01/13    00:08:10     5004           
   2 :       FUNCTION FR2  (SQA,SQU,LD)                                                
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 :       COMMON/CMCHAM/ D1,D2,R,A,U,DD1,DD2,LSOMD,LD1,LD2                          
   6 :       COMMON/CMARGT/SINT,COST,RSINT,RCOST,RSIN2,XA,XU,XXA,XXU,SQA2,SQA1         
   7 :      +,SQU2,SQU1                                                                
   8 :       LOGICAL LSOMD,LD1,LD2,LD                                                  
   9 :       IF(.NOT.LD)    GOTO 4                                                     
  10 : 3     IF(COST.NE.1.D0) GOTO 4                                                   
  11 : 5     IF(R-U) 4,10,14                                                           
  12 : 14    IF(R-A) 11,12,13                                                          
  13 : 4     FR2=-R*COST**2* LOG((XA+SQA)/(XU+SQU))                                    
  14 :       RETURN                                                                    
  15 : 10    FR2=-R*(XA/SQA)                                                           
  16 :       RETURN                                                                    
  17 : 11    FR2=-R*((XA/SQA)-(XU/SQU))                                                
  18 :       RETURN                                                                    
  19 : 12    FR2=+R*(XU/SQU)                                                           
  20 :       RETURN                                                                    
  21 : 13    FR2=-R* LOG(XU/XA)                                                        
  22 :       RETURN                                                                    
  23 :       END                                                                       
  24 :