MINICERN/packlib/kernlib/kerngen/tcgen/kerngt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1997/02/04 17:36:16  mclareni
   6 * Merge Winnt and 97a versions
   7 *
   8 * Revision 1.1.1.1.2.1  1997/01/21 11:31:21  mclareni
   9 * All mods for Winnt 96a on winnt branch
  10 *
  11 * Revision 1.1.1.1  1996/02/15 17:49:40  mclareni
  12 * Kernlib
  13 *
  14 *
  15 #include "kerngen/pilot.h"
  16 #if defined(CERNLIB_WINNT)
  17 #include "wntgs/kerngt.F"
  18 #elif defined(CERNLIB_QMHPX)
  19 #include "hpxgs/kerngt.F"
  20 #elif defined(CERNLIB_QMIRT)||defined(CERNLIB_QMIRTD)
  21 #include "irtgs/kerngt.F"
  22 #elif defined(CERNLIB_QMLNX)
  23 #include "lnxgs/kerngt.F"
  24 #elif defined(CERNLIB_QMSGI)
  25 #include "sgigs/kerngt.F"
  26 #elif defined(CERNLIB_QMSUN)
  27 #include "sungs/kerngt.F"
  28 #elif defined(CERNLIB_QMVMI)||defined(CERNLIB_QMVAO)
  29 #include "allgs/kerngt.F"
  30 #elif defined(CERNLIB_QMVAX)
  31 #include "vaxgs/kerngt.F"
  32 #elif defined(CERNLIB_QMDOS)
  33 #include "dosgs/kerngt.F"
  34 #elif defined(CERNLIB_QMMPW)
  35 #include "mpwgs/kerngt.F"
  36 #elif defined(CERNLIB_QMOS9)
  37 #include "os9gs/kerngt.F"
  38 #else
  39       SUBROUTINE KERNGT (LUN)
  40 C
  41 C CERN PROGLIB# Z001    KERNGT          .VERSION KERNFOR  4.29  910718
  42 C ORIG. 18/12/78
  43 C
  44       COMMON /SLATE/ ICH(32),DUM(8)
  45
  46       CALL VBLANK (ICH,40)
  47       CALL GSHOWF (LUN)
  48       RETURN
  49       END
  50 #endif