Télécharger iterer.eso

Retour à la liste

Numérotation des lignes :

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

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