C INDETA    SOURCE    KICH      11/12/16    21:15:42     7217           
      SUBROUTINE INDETA                                                         
*---------------------------------------------------------------------          
*    FABRIQUE L'INDEX D'UNE TABLE - LE RESULTAT EST UNE TABLE |                 
*---------------------------------------------------------------------          
      IMPLICIT INTEGER(I-N)
-INC SMTABLE                                                                    
-INC CCOPTIO                                                                    
C                                                                               
      LOGICAL LOGI                                                              
      REAL*8 XVA                                                                
      CHARACTER*(1) CHARI                                                       
      CALL LIROBJ('TABLE   ',ITAB,1,IRETOU)                                     
      IF(IERR.NE.0) RETURN                                                      
C                                                                               
      MTABLE=ITAB                                                               
      SEGACT MTABLE                                                             
      NB=MLOTAB                                                                 
      IF(NB.EQ.0) GO TO 99                                                      
      M=NB                                                                      
      SEGINI MTAB1                                                              
      MTAB1.MLOTAB=M                                                            
      DO 10 IJ=1,NB                                                             
      CALL QUERAN(IRET,'ENTIER  ',IJ,XVA,CHARI,LOGI,IOB)                        
      MTAB1.MTABTI(IJ)='ENTIER  '                                               
      MTAB1.MTABII(IJ)=IRET                                                     
      MTAB1.MTABTV(IJ)=MTABTI(IJ)                                               
      IF (MTABTI(IJ).EQ.'FLOTTANT') THEN                                        
      MTAB1.RMTABV(IJ)=RMTABI(IJ)                                               
      ELSE                                                                      
      MTAB1.MTABIV(IJ)=MTABII(IJ)                                               
      ENDIF                                                                     
  10  CONTINUE                                                                  
      SEGDES MTAB1,MTABLE                                                       
      CALL ECROBJ('TABLE   ',MTAB1)                                             
      RETURN                                                                    
   99 CONTINUE
      call crtabl(ita1)
      CALL ECROBJ('TABLE   ',ita1)                                                               
      RETURN                                                                    
      END