forked from sPHENIX-Collaboration/coresoftware
/
title.f
executable file
·25 lines (25 loc) · 1.02 KB
/
title.f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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