Télécharger la plaquette Cast3M


fr en

Télécharger iterer.eso

Retour à la liste

Numérotation des lignes : 

iterer

  1. C ITERER    SOURCE    PV090527  24/01/10    21:15:02     11818          
  2. C  CE SOUS PROGRAMME FAIT ALLER EN FIN DE BLOC ACTIF
  3. C
  4.       SUBROUTINE ITERER
  5.       IMPLICIT INTEGER(I-N)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCNOYAU
  10. -INC SMBLOC
  11.       CHARACTER*4 MFIN(2)
  12.       CHARACTER*(8) CTYP
  13.       DATA MFIN/'FIN ','REPE'/
  14.       CALL LIROBJ('BLOC    ',IRET,1,IRETOU)
  15.       IF (IERR.NE.0) RETURN
  16.       CALL QUETYP(CTYP,0,IRETOU)
  17.       IF(IRETOU.EQ.1) THEN
  18.       MOTERR(1:8)=CTYP
  19.       CALL ERREUR(39)
  20.       RETURN
  21.       ENDIF
  22.    1  CONTINUE
  23.       CALL NOUTRU
  24.       LECTAB=1
  25.       CALL LIRMOT(MFIN,2,IRETOU,0)
  26.       IF (IRETOU.EQ.0) GOTO 1
  27.       IF(IRETOU.EQ.1) THEN
  28.           IF(IRET.NE.MBLOC) MBCONT=1
  29.           MBLO1=MBLOC
  30.           CALL FIN
  31.           IF (MBLO1.NE.IRET) GOTO 1
  32.       ELSEIF(IRETOU.EQ.2) THEN
  33.           CALL REPETE(1)
  34.           MBCONT=1
  35.           GO TO 1
  36.       ENDIF
  37.       LECTAB=0
  38.       RETURN
  39.       END
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  

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