[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / traceq.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:51  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
#if defined(CERNLIB_QMHPX)
#include "hpxgs/traceq.F"
#elif defined(CERNLIB_QMVAX)
#include "vaxsys/traceq.F"
#else
      SUBROUTINE TRACEQ (LUNP,LEV)
C
C CERN PROGLIB# N105    TRACEQ          .VERSION KERNFOR  4.23  891215
C ORIG.  4/01/89  JZ
C
*     unit number for standard output
      PARAMETER    (LUNSTP=6)

      LUN = LUNP
      IF (LUN.EQ.0)  LUN = LUNSTP
      WRITE (LUN,9001)
      RETURN
 9001 FORMAT (/' TRACEQ.  In-line trace-back still not available.')
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:51 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	#if defined(CERNLIB_QMHPX)
	11	#include "hpxgs/traceq.F"
	12	#elif defined(CERNLIB_QMVAX)
	13	#include "vaxsys/traceq.F"
	14	#else
	15	SUBROUTINE TRACEQ (LUNP,LEV)
	16	C
	17	C CERN PROGLIB# N105 TRACEQ .VERSION KERNFOR 4.23 891215
	18	C ORIG. 4/01/89 JZ
	19	C
	20	* unit number for standard output
	21	PARAMETER (LUNSTP=6)
	22
	23	LUN = LUNP
	24	IF (LUN.EQ.0) LUN = LUNSTP
	25	WRITE (LUN,9001)
	26	RETURN
	27	9001 FORMAT (/' TRACEQ. In-line trace-back still not available.')
	28	END
	29	#endif