Esope source files

   1 : C GRAEGA    SOURCE    CHAT      05/01/13    00:20:42     5004           
   2 :       SUBROUTINE GRAEGA                                                         
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       CHARACTER*(8) ITT                                                         
   6 :       REAL*8 X1,X2                                                              
   7 :       LOGICAL IR                                                                
   7 :       CALL LIRREE(X1,0,IRETO1)                                                  
   7 :       CALL LIRREE(X2,0,IRETO2)                                                  
   8 :       IF (IRETO1*IRETO2.EQ.0) THEN                                              
   9 :       IR=.FALSE.                                                                
  10 :         ITT=' '                                                                 
  10 :         CALL LIROBJ(ITT,IRET,0,IRETOU)                                          
  11 :           IF (IRETO1+IRETO2.EQ.0) THEN                                          
  12 :            ITT=' '                                                              
  12 :            CALL LIROBJ(ITT,IRET,0,IRETOU)                                       
  13 :           ENDIF                                                                 
  14 :       ELSE                                                                      
  15 :       IR=X1.GE.X2                                                               
  16 :       ENDIF                                                                     
  16 :       CALL ECRLOG (IR)                                                          
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :