5 * Revision 1.1.1.1 1996/02/15 17:49:58 mclareni
9 SUBROUTINE KERNGT (LUN)
11 C CERN PROGLIB# Z001 KERNGT .VERSION KERNSUN 1.06 920511
14 C-- Store Pam title into /SLATE/ for printing by GSHOWF
16 COMMON /SLATE/ MCH(40)
18 PARAMETER (VIDQQ = '@(#)' //
19 + 'KERNSUN 1.11 1995/09/28 19.14 >')
21 CALL CLEFT (VIDQQ,1,0)
23 + 'KERNSUN 1.11 1995/09/28 19.14 '