Back to home page

sPhenix code displayed by LXR

 
 

    


File indexing completed on 2025-08-05 08:15:46

0001 C
0002 C
0003 C
0004 C
0005 C
0006         SUBROUTINE TITLE
0007         WRITE(6,200)
0008 200     FORMAT(//10X,
0009      &  '**************************************************'/10X,
0010      &  '*     |      \\       _______      /  ------/     *'/10X,
0011      &  '*   ----- ------     |_____|     /_/     /       *'/10X,
0012      &  '*    ||\\    /        |_____|      /    / \\       *'/10X,
0013      &  '*    /| \\  /_/       /_______    /_  /    \\_     *'/10X,
0014      &  '*   / |     / /     /  /  / |        -------     *'/10X,
0015      &  '*     |    / /\\       /  /  |     /     |        *'/10X,
0016      &  '*     |   / /  \\     /  / \\_|    /   -------     *'/10X,
0017      &  '*                                                *'/10X,
0018      &  '**************************************************'/10X,
0019      &  '                      HIJING                      '/10X,
0020      &  '       Heavy Ion Jet INteraction Generator        '/10X,
0021      &  '                        by                        '/10X,
0022      &  '           X. N. Wang  and  M. Gyulassy           '/10X,
0023      &  '           Lawrence Berkeley Laboratory           '//) 
0024         RETURN
0025         END