Esope source files

   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'/                                                  
  11 :       CALL LIROBJ('BLOC    ',IRET,1,IRETOU)                                     
  12 :       IF (IERR.NE.0) RETURN                                                     
  12 :       CALL QUETYP(CTYP,0,IRETOU)                                                
  13 :       IF(IRETOU.EQ.1) THEN                                                      
  14 :       MOTERR(1:8)=CTYP                                                          
  14 :       CALL ERREUR(39)                                                           
  15 :       RETURN                                                                    
  16 :       ENDIF                                                                     
  17 :    1  CONTINUE                                                                  
  17 :       CALL NOUTRU                                                               
  18 :       LECTAB=1                                                                  
  18 :       CALL LIRMOT(MFIN,2,IRETOU,0)                                              
  19 :       IF (IRETOU.EQ.0) GOTO 1                                                   
  20 :       IF(IRETOU.EQ.1) THEN                                                      
  21 :           IF(IRET.NE.MBLOC) MBCONT=1                                            
  22 :           MBLO1=MBLOC                                                           
  22 :           CALL FIN                                                              
  23 :           IF (MBLO1.NE.IRET) GOTO 1                                             
  24 :       ELSEIF(IRETOU.EQ.2) THEN                                                  
  24 :           CALL REPETE                                                           
  25 :           MBCONT=1                                                              
  26 :           GO TO 1                                                               
  27 :       ENDIF                                                                     
  28 :       LECTAB=0                                                                  
  29 :       RETURN                                                                    
  30 :       END         
  31 :