Screamer Project
V3.3.1
Screamer Structure
Main Page
Files
File List
File Members
All
Files
Functions
Variables
prtbannr.f
Go to the documentation of this file.
1
subroutine
banner
(line)
2
c
3
c Define passed variables
4
c
5
character
line
*(80)
6
c
7
c
8
c Puts out a banner in log file with the input line written 3 times.
9
c
10
c -----------------------------------------------------------
11
c Modifications:
12
c 06/27/95, MLK, Modified to just print input line
13
c with a lines of stars above and below it
14
c and blank lines above and below those.
15
c 2008-11-07, RBS, Cleaned up write statements for simplicity
16
c -----------------------------------------------------------
17
c
18
character
star20*20, star80*80
19
c
20
star20 =
'********************'
21
star80 = star20//star20//star20//star20
22
c
23
c Write 5 lines (blank, stars, input, stars, blank).
24
c
25
write
(9,
'(A)'
)
' '
26
write
(9,
'(A)'
) star80
27
write
(9,
'(A)'
)
line
28
write
(9,
'(A)'
) star80
29
write
(9,
'(A)'
)
' '
30
c
31
return
32
end
line
c *****************************************************************************c Parameters for output selections c Added MFI CB parameters c Added callouts for the radiation yield in the c cylindrical foil model c Added line
Definition:
zdempprm.h:7
banner
subroutine banner(line)
Definition:
prtbannr.f:1
release_3.3.1_beta
src
prtbannr.f
Generated on Mon May 5 2014 15:41:48 for Screamer Project by
1.8.7