Télécharger graega.eso

Retour à la liste

Numérotation des lignes :

  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
  8. CALL LIRREE(X1,0,IRETO1)
  9. CALL LIRREE(X2,0,IRETO2)
  10. IF (IRETO1*IRETO2.EQ.0) THEN
  11. IR=.FALSE.
  12. ITT=' '
  13. CALL LIROBJ(ITT,IRET,0,IRETOU)
  14. IF (IRETO1+IRETO2.EQ.0) THEN
  15. ITT=' '
  16. CALL LIROBJ(ITT,IRET,0,IRETOU)
  17. ENDIF
  18. ELSE
  19. IR=X1.GE.X2
  20. ENDIF
  21. CALL ECRLOG (IR)
  22. RETURN
  23. END
  24.  
  25.  

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