[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / title.F

* $Id$
C
C
C
C
C
	SUBROUTINE TITLE
	WRITE(6,200)
200	FORMAT(//10X,
     &	'**************************************************'/10X,
     &  '*     |      \\       _______      /  ------/     *'/10X,
     &	'*   ----- ------     |_____|     /_/     /       *'/10X,
     &	'*    ||\\    /        |_____|      /    / \\       *'/10X,
     &	'*    /| \\  /_/       /_______    /_  /    \\_     *'/10X,
     &	'*   / |     / /     /  /  / |        -------     *'/10X,
     &	'*     |    / /\\       /  /  |     /     |        *'/10X,
     &	'*     |   / /  \\     /  / \\_|    /   -------     *'/10X,
     &	'*                                                *'/10X,
     &	'**************************************************'/10X,
     &	'                      HIJING                      '/10X,
     &	'       Heavy Ion Jet INteraction Generator        '/10X,
     &	'                        by                        '/10X,
     &  '	    X. N. Wang  and  M. Gyulassy           '/10X,
     &  ' 	    Lawrence Berkeley Laboratory           '//)	
	RETURN
	END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	C
	5	C
	6	C
	7	SUBROUTINE TITLE
	8	WRITE(6,200)
	9	200 FORMAT(//10X,
	10	& '**************************************************'/10X,
	11	& '* \| \\ _______ / ------/ *'/10X,
	12	& '* ----- ------ \|_____\| /_/ / *'/10X,
	13	& '* \|\|\\ / \|_____\| / / \\ *'/10X,
	14	& '* /\| \\ /_/ /_______ /_ / \\_ *'/10X,
	15	& '* / \| / / / / / \| ------- *'/10X,
	16	& '* \| / /\\ / / \| / \| *'/10X,
	17	& '* \| / / \\ / / \\_\| / ------- *'/10X,
	18	& '* *'/10X,
	19	& '**************************************************'/10X,
	20	& ' HIJING '/10X,
	21	& ' Heavy Ion Jet INteraction Generator '/10X,
	22	& ' by '/10X,
	23	& ' X. N. Wang and M. Gyulassy '/10X,
	24	& ' Lawrence Berkeley Laboratory '//)
	25	RETURN
	26	END