5 * Revision 1.1.1.1 1996/02/15 17:49:57 mclareni
9 SUBROUTINE KERNGT (LUN)
11 C CERN PROGLIB# Z001 KERNGT .VERSION KERNIRT 1.08 940531
14 C-- Store Pam title into /SLATE/ for printing by GSHOWF
16 COMMON /SLATE/ MCH(40)
18 PARAMETER (VIDQQ = '@(#)' //
19 + ' KERNIRT 1.08 940526 11.05 >')
21 CALL CLEFT (VIDQQ,1,0)
23 + ' KERNIRT 1.08 940526 11.05 '