C MASLIS    SOURCE    CHAT      05/01/13    01:31:50     5004           
      SUBROUTINE MASLIS(CTYP,IPOI,ICLE,X1,I1,IRET,ISOM)                         
      IMPLICIT INTEGER(I-N)
-INC SMLREEL                                                                    
-INC SMLENTI                                                                    
      CHARACTER*(*) CTYP                                                        
      REAL*8 X1                                                                 
      IF(CTYP.EQ.'LISTREEL') THEN                                               
         MLREE1=IPOI                                                            
         SEGINI,MLREEL=MLREE1                                                   
         IRET=MLREEL                                                            
         IF(ICLE.EQ.1) THEN                                                     
           DO 1 I=1,PROG(/1)                                                    
           IF(PROG(I).GT.X1) THEN                                               
              PROG(I)=1                                                         
           ELSE                                                                 
              PROG(I)=0                                                         
           ENDIF                                                                
    1      CONTINUE                                                             
         ELSEIF (ICLE.EQ.2) THEN                                                
           DO 2 I=1,PROG(/1)                                                    
           IF(PROG(I).GE.X1) THEN                                               
              PROG(I)=1                                                         
           ELSE                                                                 
              PROG(I)=0                                                         
           ENDIF                                                                
    2      CONTINUE                                                             
         ELSEIF (ICLE.EQ.3) THEN                                                
           DO 3 I=1,PROG(/1)                                                    
           IF(PROG(I).EQ.X1) THEN                                               
              PROG(I)=1                                                         
           ELSE                                                                 
              PROG(I)=0                                                         
           ENDIF                                                                
    3      CONTINUE                                                             
         ELSEIF (ICLE.EQ.4) THEN                                                
           DO 4 I=1,PROG(/1)                                                    
           IF(PROG(I).LE.X1) THEN                                               
              PROG(I)=1                                                         
           ELSE                                                                 
              PROG(I)=0                                                         
           ENDIF                                                                
    4      CONTINUE                                                             
         ELSEIF (ICLE.EQ.5) THEN                                                
           DO 5 I=1,PROG(/1)                                                    
           IF(PROG(I).LT.X1) THEN                                               
              PROG(I)=1                                                         
           ELSE                                                                 
              PROG(I)=0                                                         
           ENDIF                                                                
    5      CONTINUE                                                             
         ELSEIF (ICLE.EQ.6) THEN                                                
           DO 6 I=1,PROG(/1)                                                    
           IF(PROG(I).NE.X1) THEN                                               
              PROG(I)=1                                                         
           ELSE                                                                 
              PROG(I)=0                                                         
           ENDIF                                                                
    6      CONTINUE                                                             
         ENDIF                                                                  
         IF(ISOM.EQ.1) THEN                                                     
           IRET=0                                                               
           DO 7 I=1,PROG(/1)                                                    
           IF(PROG(I).GT.0) IRET = IRET + 1                                     
    7      CONTINUE                                                             
         ENDIF                                                                  
         SEGDES MLREEL,MLREE1                                                   
      ELSEIF (CTYP.EQ.'LISTENTI') THEN                                          
         MLENT1=IPOI                                                            
         SEGINI,MLENTI=MLENT1                                                   
         IRET=MLENTI                                                            
         IF(ICLE.EQ.1) THEN                                                     
           DO 11 I=1,LECT(/1)                                                   
           IF(LECT(I).GT.I1) THEN                                               
              LECT(I)=1                                                         
           ELSE                                                                 
              LECT(I)=0                                                         
           ENDIF                                                                
   11      CONTINUE                                                             
         ELSEIF (ICLE.EQ.2) THEN                                                
           DO 12 I=1,LECT(/1)                                                   
           IF(LECT(I).GE.I1) THEN                                               
              LECT(I)=1                                                         
           ELSE                                                                 
              LECT(I)=0                                                         
           ENDIF                                                                
   12      CONTINUE                                                             
         ELSEIF (ICLE.EQ.3) THEN                                                
           DO 13 I=1,LECT(/1)                                                   
           IF(LECT(I).EQ.I1) THEN                                               
              LECT(I)=1                                                         
           ELSE                                                                 
              LECT(I)=0                                                         
           ENDIF                                                                
   13      CONTINUE                                                             
         ELSEIF (ICLE.EQ.4) THEN                                                
           DO 14 I=1,LECT(/1)                                                   
           IF(LECT(I).LE.I1) THEN                                               
              LECT(I)=1                                                         
           ELSE                                                                 
              LECT(I)=0                                                         
           ENDIF                                                                
   14      CONTINUE                                                             
         ELSEIF (ICLE.EQ.5) THEN                                                
           DO 15 I=1,LECT(/1)                                                   
           IF(LECT(I).LT.I1) THEN                                               
              LECT(I)=1                                                         
           ELSE                                                                 
              LECT(I)=0                                                         
           ENDIF                                                                
   15      CONTINUE                                                             
         ELSEIF (ICLE.EQ.6) THEN                                                
           DO 16 I=1,LECT(/1)                                                   
           IF(LECT(I).NE.I1) THEN                                               
              LECT(I)=1                                                         
           ELSE                                                                 
              LECT(I)=0                                                         
           ENDIF                                                                
   16      CONTINUE                                                             
         ENDIF                                                                  
         IF(ISOM.EQ.1) THEN                                                     
           IRET=0                                                               
           DO 17 I=1,LECT(/1)                                                   
           IF(LECT(I).GT.0) IRET = IRET + 1                                     
   17      CONTINUE                                                             
         ENDIF                                                                  
         SEGDES MLENTI,MLENT1                                                   
      ENDIF                                                                     
      RETURN                                                                    
      END