Télécharger petit.eso

Retour à la liste

Numérotation des lignes :

  1. C PETIT SOURCE CHAT 05/01/13 02:13:12 5004
  2. SUBROUTINE PETIT
  3. IMPLICIT INTEGER(I-N)
  4. -INC PPARAM
  5. -INC CCOPTIO
  6. LOGICAL IR
  7. REAL*8 X1,X2
  8. ICOD=1
  9. CALL LIRREE(X1,ICOD,IRETOU)
  10. IF(IERR.NE.0) RETURN
  11. CALL LIRREE(X2,ICOD,IRETOU)
  12. IF(IERR.NE.0) RETURN
  13. IR=X1.LT.X2
  14. CALL ECRLOG (IR)
  15. RETURN
  16. END
  17.  
  18.  

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