+++ /dev/null
-/*
- * $Id$
- *
- * $Log$
- * Revision 1.1.1.1 1996/02/15 17:50:06 mclareni
- * Kernlib
- *
- */
-#include "kerngen/pilot.h"
-/*> ROUTINE TRACEQC
- CERN PROGLIB# N105 TRACEQC .VERSION KERNHPX 1.04 950928
- ORIG. 3/05/95 FR, JZ
- subsidiary to TRACEQ
-*/
-#if defined(CERNLIB_QX_SC)
- void traceqc_()
-#endif
-#if defined(CERNLIB_QXNO_SC)
- void traceqc()
-#endif
-{
- void U_STACK_TRACE(); /* somewhere in Fortran RTL */
- U_STACK_TRACE();
- return;
-}
-/*> END <----------------------------------------------------------*/