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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:41  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      SUBROUTINE GSHOWF (LUNP)
C
C CERN PROGLIB# Z001    GSHOWF          .VERSION KERNFOR  4.39  940228
C ORIG. 18/12/78
C
      COMMON /SLATE/ ICH(32),DUM(8)
      CHARACTER    VIDQQ*(*)
      PARAMETER   (VIDQQ = '@(#)' //
     + ' KERNFOR  4.42  1995/10/11 17.43        >')
      PARAMETER    (LUNSTP=6)

      LUN = LUNP
      IF (LUN.EQ.0)  LUN = LUNSTP

      WRITE (LUN,9002) ICH
      CALL CLEFT (VIDQQ,1,0)
      RETURN

 9002 FORMAT (1X/25H KERNGT.  KERNLIB from:  , 32A1/25X,
     + ' KERNFOR  4.42  1995/10/11 17.43        ')
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:41 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	SUBROUTINE GSHOWF (LUNP)
	11	C
	12	C CERN PROGLIB# Z001 GSHOWF .VERSION KERNFOR 4.39 940228
	13	C ORIG. 18/12/78
	14	C
	15	COMMON /SLATE/ ICH(32),DUM(8)
	16	CHARACTER VIDQQ()
	17	PARAMETER (VIDQQ = '@(#)' //
	18	+ ' KERNFOR 4.42 1995/10/11 17.43 >')
	19	PARAMETER (LUNSTP=6)
	20
	21	LUN = LUNP
	22	IF (LUN.EQ.0) LUN = LUNSTP
	23
	24	WRITE (LUN,9002) ICH
	25	CALL CLEFT (VIDQQ,1,0)
	26	RETURN
	27
	28	9002 FORMAT (1X/25H KERNGT. KERNLIB from: , 32A1/25X,
	29	+ ' KERNFOR 4.42 1995/10/11 17.43 ')
	30	END