MINICERN/packlib/zebra/qutil/qnext.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10 #if !defined(CERNLIB_NODUMMY)
  11       SUBROUTINE QNEXT
  12
  13 C-    DUMMY VERSION OF THE USER ROUTINE QNEXT
  14
  15 #include "zebra/zunit.inc"
  16 C--------------    END CDE                             --------------
  17
  18
  19       LUN = IQTYPE
  20       IF (LUN.NE.0)                GO TO 12
  21    11 LUN = IQLOG
  22    12 WRITE (LUN,9001)
  23       IF (LUN.NE.IQLOG)            GO TO 11
  24       STOP
  25
  26  9001 FORMAT ('0!!!!!    DUMMY ROUTINE QNEXT REACHED.')
  27       END
  28 *      ==================================================
  29 #include "zebra/qcardl.inc"
  30 #endif