*COMDECK  DEBUGCOM
#----------------------------------------------------------------------#
#                                                                      #
#        D E B U G   C O M M O N   R O U T I N E S                     #
#                                                                      #
  
      XREF  ARRAY   TRACEM;;
  
      PTRACEM = LOC(TRACEM);
  
#                                                                      #
#        E N D   O F   D E B U G   C O M M O N                         #
#----------------------------------------------------------------------#
