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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:59  mclareni
   6 * Kernlib
   7 *
   8 *
   9 !!S SEG_KERNGT
  10       SUBROUTINE KERNGT(LUN)
  11 C
  12 C CERN PROGLIB# Z001    KERNGT          .VERSION KERNMPW  1.00  891208
  13 C ORIG. 12/12/83  JZ
  14 C
  15 C--   STORE PAM TITLE INTO /SLATE/ FOR PRINTING BY GSHOWF
  16 C
  17       COMMON /SLATE/ CH(40)
  18 C
  19       ENTRY      GSHOW (LUN)
  20 C
  21       CALL UBLOW (
  22      + 40H          KERNMPW  1.02  921009 00.35
  23      +,  CH,40)
  24       CALL GSHOWF (LUN)
  25       END