Include source files

*        -INC SMTABLE                                                           
*                                                                               
*     OBJET DE TYPE TABLE                                                       
*                                                                               
      SEGMENT MTABLE                                                            
            INTEGER       MLOTAB                                                
            CHARACTER*(8) MTABTI(M),MTABTV(M)                                   
            REAL*8        RMTABI(M)                                             
            INTEGER       MTABII(M),MTABIV(M)                                   
            REAL*8        RMTABV(M)                                             
      ENDSEGMENT                                                                
      POINTEUR MTAB1.MTABLE,MTAB2.MTABLE,MTAB3.MTABLE                           
*                                                                               
*     MLOTAB     : LONGUEUR DE LA TABLE ( <> ALLOCATION )                       
*     MTABTI(I)  : TYPE DE L INDICE POINTANT SUR LE IEME ELEMENT DE LA          
*                :    TABLE                                                     
*     MTABTV(I)  : TYPE DE L'OBJET POINTE PAR LE IEME INDICE                    
*     MTABII(I)  : VALEUR DE L'INDICE  (SI PAS REEL)                            
*     RMTABI(I)  : VALEUR DE L'INDICE  (SI REEL)                                
*     MTABIV(I)  : VALEUR DE L'OBJET   (SI PAS REEL)                            
*     RMTABV(I)  : VALEUR DE L'OBJET   (SI REEL)                                
*