* $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