MINICERN/packlib/kernlib/kerngen/unix/hpxgs/traceqc.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.1.1.1  1996/02/15 17:50:06  mclareni
   6  * Kernlib
   7  *
   8  */
   9 #include "kerngen/pilot.h"
  10 /*>    ROUTINE TRACEQC
  11   CERN PROGLIB# N105    TRACEQC         .VERSION KERNHPX  1.04  950928
  12   ORIG.  3/05/95  FR, JZ
  13   subsidiary to TRACEQ
  14 */
  15 #if defined(CERNLIB_QX_SC)
  16       void traceqc_()
  17 #endif
  18 #if defined(CERNLIB_QXNO_SC)
  19       void traceqc()
  20 #endif
  21 {
  22       void U_STACK_TRACE();       /* somewhere in Fortran RTL */
  23       U_STACK_TRACE();
  24       return;
  25 }
  26 /*> END <----------------------------------------------------------*/