[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / wntgs / kerngt.F

*
* $Id$
*
* $Log$
* Revision 1.1  1997/02/04 17:36:21  mclareni
* Merge Winnt and 97a versions
*
* Revision 1.1.1.1  1996/02/15 17:49:57  mclareni
* Kernlib
*
*
      SUBROUTINE KERNGT (LUN)
C
C CERN PROGLIB# Z001    KERNGT          .VERSION KERNDOS  1.00  920624
C ORIG.  16/03/89
C
C--   Store Pam title into /SLATE/ for printing by GSHOWF

      COMMON /SLATE/ MCH(40)


      CALL UCTOH1   (
     + ' KERNNT  1.00/0 960510 12.23 by V.Fine '
     +,  MCH, 40)
      CALL GSHOWF (LUN)
      RETURN
      END
Commit	Line	Data
fe4da5cc	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