Esope source files

   1 : C ARGUME    SOURCE    CHAT      05/01/12    21:24:35     5004           
   2 :       SUBROUTINE ARGUME(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 :       SINT=SIN(T)                                                               
   9 :       COST=COS(T)                                                               
  10 :       RCOST=R*COST                                                              
  11 :       RSINT=R*SINT                                                              
  12 :       RSIN2=RSINT**2                                                            
  13 :       XA=A-RCOST                                                                
  14 :       XU=U-RCOST                                                                
  15 :       XXA=XA**2                                                                 
  16 :       XXU=XU**2                                                                 
  17 :       SQA2=SQRT(DD2+XXA+RSIN2)                                                  
  18 :       SQA1=SQRT(DD1+XXA+RSIN2)                                                  
  19 :       SQU2=SQRT(DD2+XXU+RSIN2)                                                  
  20 :       SQU1=SQRT(DD1+XXU+RSIN2)                                                  
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :