COMMON/TRACE/PART(350,6),DEL(350),NPART,NCPART,NPRINT,NCTURN,
     <  NPTOT,MLOCAT,NTURN