/* file killarc1.c */
  
  #include "sctk.h"
  
  void kill_arc(ARC *arc1)           
  
  /*******************************************************************/
  /* Deletes ARC *arc1.                                              */
  /* *Perr > 0 on return to signal error.                            */
  /*******************************************************************/
  
   {char *proc = "kill_arc";
  /* code */
  db_enter_msg(proc,0); /* debug only */
  
  if (db_level > 0) printf("%s killing arc @%p
  ",
  			 pdb,arc1);
  
  /*   if (memory_trace) printf("%s FREEing %x
  ",pdb,(int)arc1->symbol); */
  /*   free((void*)arc1->symbol); */
  /*   if (memory_trace) printf("%s FREEing %x
  ",pdb,(int)arc1); */
    free((void*)arc1);
  
  db_leave_msg(proc,0); /* debug only */
    return;
   } /* end kill_arc() */