Télécharger la plaquette Cast3M


fr en

Télécharger graega.eso

Retour à la liste

Numérotation des lignes : 

graega

  1. C GRAEGA    SOURCE    CHAT      05/01/13    00:20:42     5004
  2.       SUBROUTINE GRAEGA
  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.GE.X2
  22.       ENDIF
  23.       CALL ECRLOG (IR)
  24.       RETURN
  25.       END
  26.  
  27.  

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