C DTTABL    SOURCE    CHAT      05/01/12    22:58:28     5004           
      SUBROUTINE DTTABL (IPTABL)                                                
************************************************************************        
*                                                                               
*                             D T T A B L                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     DESTRUCTION D'UNE 'TABLE'.                                                
*     SEULE LA TABLE DES REFERENCES EST DETRUITE. LES OBJETS QUI Y              
*     SONT REFERENCES SONT CONSERVES, MEME S'ILS NE PEUVENT PLUS ETRE           
*     ATTEINTS VIA CETTE TABLE.                                                 
*                                                                               
* MODE D'APPEL:                                                                 
* -------------                                                                 
*                                                                               
*     CALL DTTABL (IPTABL)                                                      
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
* -----------                                                                   
*                                                                               
*     IPTABL  ENTIER    (E)  POINTEUR DE LA 'TABLE' A DETRUIRE.                 
*                       (S)  MIS A ZERO.                                        
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     PASCAL MANIGOT     29 MAI 1985                                            
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC SMTABLE                                                                    
*                                                                               
      MTABLE = IPTABL                                                           
      SEGSUP,MTABLE                                                             
      IPTABL = 0                                                                
*                                                                               
      END