Télécharger iterer.eso

Retour à la liste

Numérotation des lignes :

  1. C ITERER SOURCE CB215821 19/11/15 21:15:27 10378
  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
  34. MBCONT=1
  35. GO TO 1
  36. ENDIF
  37. LECTAB=0
  38. RETURN
  39. END
  40.  
  41.  
  42.  
  43.  

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