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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1  1997/02/04 17:36:21  mclareni
   6 * Merge Winnt and 97a versions
   7 *
   8 * Revision 1.1.1.1  1996/02/15 17:49:57  mclareni
   9 * Kernlib
  10 *
  11 *
  12       SUBROUTINE KERNGT (LUN)
  13 C
  14 C CERN PROGLIB# Z001    KERNGT          .VERSION KERNDOS  1.00  920624
  15 C ORIG.  16/03/89
  16 C
  17 C--   Store Pam title into /SLATE/ for printing by GSHOWF
  18
  19       COMMON /SLATE/ MCH(40)
  20
  21
  22       CALL UCTOH1   (
  23      + ' KERNNT  1.00/0 960510 12.23 by V.Fine '
  24      +,  MCH, 40)
  25       CALL GSHOWF (LUN)
  26       RETURN
  27       END