Esope source files

   1 : C GRAND     SOURCE    CHAT      05/01/13    00:21:00     5004           
   2 :       SUBROUTINE GRAND                                                          
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       LOGICAL IR                                                                
   6 :       REAL*8 X1,X2                                                              
   7 :       ICOD=1                                                                    
   7 :       CALL LIRREE(X1,ICOD,IRETOU)                                               
   8 :       IF(IERR.NE.0) RETURN                                                      
   8 :       CALL LIRREE(X2,ICOD,IRETOU)                                               
   9 :       IF(IERR.NE.0) RETURN                                                      
  10 :       IR=X1.GT.X2                                                               
  10 :       CALL ECRLOG (IR)                                                          
  11 :       RETURN                                                                    
  12 :       END                                                                       
  13 :