Télécharger petega.eso

Retour à la liste

Numérotation des lignes :

petega
  1. C PETEGA SOURCE CHAT 05/01/13 02:13:09 5004
  2. SUBROUTINE PETEGA
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. CHARACTER*(8) ITT
  8. REAL*8 X1,X2
  9. LOGICAL IR
  10. CALL LIRREE(X1,0,IRETO1)
  11. CALL LIRREE(X2,0,IRETO2)
  12. IF (IRETO1*IRETO2.EQ.0) THEN
  13. IR=.FALSE.
  14. ITT=' '
  15. CALL LIROBJ(ITT,IRET,0,IRETOU)
  16. IF (IRETO1+IRETO2.EQ.0) THEN
  17. ITT= ' '
  18. CALL LIROBJ(ITT,IRET,0,IRETOU)
  19. ENDIF
  20. ELSE
  21. IR=X1.LE.X2
  22. ENDIF
  23. CALL ECRLOG (IR)
  24. RETURN
  25. END
  26.  
  27.  

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