Esope source files

   1 : C FONT      SOURCE    CHAT      05/01/13    00:06:24     5004           
   2 :       FUNCTION FONT(T)                                                          
   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                                                     
   9 :       FT1(SINT,SQA,SQU)=-SINT*(SQA-SQU)                                         
   9 :       CALL ARGUME(T)                                                            
  10 :       F1=FT1(SINT,SQA2,SQU2)  -FT1(SINT,SQA1,SQU1)                              
  11 :       F2=FT2(D2,SQA2,SQU2,LD2)-FT2(D1,SQA1,SQU1,LD1)                            
  12 :       FONT=F1+F2                                                                
  13 :       RETURN                                                                    
  14 :       END                                                                       
  15 :