HIJING/hijing1_36/title.F

   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