Sources Esope | Cast3M

grand
C GRAND     SOURCE    CHAT      05/01/13    00:21:00     5004
      SUBROUTINE GRAND
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      LOGICAL IR
      REAL*8 X1,X2
      ICOD=1
      CALL LIRREE(X1,ICOD,IRETOU)
      IF(IERR.NE.0) RETURN
      CALL LIRREE(X2,ICOD,IRETOU)
      IF(IERR.NE.0) RETURN
      IR=X1.GT.X2
      CALL ECRLOG (IR)
      RETURN
      END