Esope source files

   1 : C REPLIS    SOURCE    CHAT      06/03/16    21:25:49     5336           
   2 :       SUBROUTINE REPLIS( CTYP,MLCHA8)                                   
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU
   5 : -INC CCASSIS                                                            
   6 : -INC CCOPTIO                                                            
   7 : -INC TMLCHA8                                                            
   8 :       CHARACTER*(*) CTYP                                                
   9 :       IF (LMNNOM.EQ.0.OR.CTYP.EQ.'ANNULE  ') THEN
  10 :        M=0
  11 :        SEGINI MLCHA8
  12 :        RETURN
  13 :       ENDIF
  14 :       M=1000
  15 :       MM=0                                                              
  16 :       SEGINI MLCHA8 
  17 :       if(nbesc.ne.0) segact ipiloc                                      
  18 :       DO 1 I=LMNNOM,1,-1                                                
  19 :       IF(INOOB1(I).EQ.1) GO TO 1                                       
  20 :       IF(INOOB2(I).NE.CTYP)  GO TO 1                                    
  21 : *     IF(INOOB2(I).EQ.'ANNULE  ') GO TO 1
  22 : *     IF(INOOB1(I)(1:1).EQ.'#') GO TO 1                                 
  23 :       MM=MM+1 
  24 :       IF( MM.GT.M) THEN
  25 :         M=M+1000
  26 :         SEGADJ MLCHA8 
  27 :       ENDIF
  28 :       IP= INOOB1(I)
  29 :       IDEBCH=IPCHAR(IP)
  30 :       IFINCH=IPCHAR(IP+1)-1                                             
  31 :       MLCHAR(MM)=ICHARA(IDEBCH:IFINCH)                                  
  32 :    1  CONTINUE
  33 :       if(nbesc.ne.0) segdes ipiloc         
  34 :       M=MM
  35 :       SEGADJ MLCHA8                                                     
  36 :       RETURN                                                            
  37 :       END               
  38 :