]>
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 |