C REPLIS    SOURCE    CHAT      06/03/16    21:25:49     5336           
      SUBROUTINE REPLIS( CTYP,MLCHA8)                                   
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC CCASSIS                                                            
-INC CCOPTIO                                                            
-INC TMLCHA8                                                            
      CHARACTER*(*) CTYP                                                
      IF (LMNNOM.EQ.0.OR.CTYP.EQ.'ANNULE  ') THEN
       M=0
       SEGINI MLCHA8
       RETURN
      ENDIF
      M=1000
      MM=0                                                              
      SEGINI MLCHA8 
      if(nbesc.ne.0) segact ipiloc                                      
      DO 1 I=LMNNOM,1,-1                                                
      IF(INOOB1(I).EQ.1) GO TO 1                                       
      IF(INOOB2(I).NE.CTYP)  GO TO 1                                    
*     IF(INOOB2(I).EQ.'ANNULE  ') GO TO 1
*     IF(INOOB1(I)(1:1).EQ.'#') GO TO 1                                 
      MM=MM+1 
      IF( MM.GT.M) THEN
        M=M+1000
        SEGADJ MLCHA8 
      ENDIF
      IP= INOOB1(I)
      IDEBCH=IPCHAR(IP)
      IFINCH=IPCHAR(IP+1)-1                                             
      MLCHAR(MM)=ICHARA(IDEBCH:IFINCH)                                  
   1  CONTINUE
      if(nbesc.ne.0) segdes ipiloc         
      M=MM
      SEGADJ MLCHA8                                                     
      RETURN                                                            
      END