Screamer Project  V3.3.1
Screamer Structure
 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
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
subroutine banner(line)
Definition: prtbannr.f:1