Télécharger grand.eso

Retour à la liste

Numérotation des lignes :

  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
  8. CALL LIRREE(X1,ICOD,IRETOU)
  9. IF(IERR.NE.0) RETURN
  10. CALL LIRREE(X2,ICOD,IRETOU)
  11. IF(IERR.NE.0) RETURN
  12. IR=X1.GT.X2
  13. CALL ECRLOG (IR)
  14. RETURN
  15. END
  16.  
  17.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales