[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / s / gent.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/15 10:02:56  mclareni
* Change format statement to compile also on OSF, and add a date
*
* Revision 1.1.1.1  1996/04/01 15:02:53  mclareni
* Mathlib gen
*
*
      SUBROUTINE GENT ( LUN)
C.
C.
C.    ******************************************************************
C.    *                                                                *
C.    *                                                                *
C.    *       PRINT PAM TITLE ON LUN                                   *
C.    *                                                                *
C.    *                                                                *
C.    ******************************************************************
C.
      WRITE (LUN,1000)
      RETURN
 1000 FORMAT('  GENT  COMPILED FROM PAM FILE= ',
     + ' GEN      1.48/00  150496' ,
     +/)
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/15 10:02:56 mclareni
	6	* Change format statement to compile also on OSF, and add a date
	7	*
	8	* Revision 1.1.1.1 1996/04/01 15:02:53 mclareni
	9	* Mathlib gen
	10	*
	11	*
	12	SUBROUTINE GENT ( LUN)
	13	C.
	14	C.
	15	C. ******************************************************************
	16	C. * *
	17	C. * *
	18	C. * PRINT PAM TITLE ON LUN *
	19	C. * *
	20	C. * *
	21	C. ******************************************************************
	22	C.
	23	WRITE (LUN,1000)
	24	RETURN
	25	1000 FORMAT(' GENT COMPILED FROM PAM FILE= ',
	26	+ ' GEN 1.48/00 150496' ,
	27	+/)
	28	END