3 c-----description-------------------------------------------------------
5 c author/date: mathias bavay 11/04
8 c 2008-07-16 rbs gfortran fix, remove
time, leave date_and_time
9 c 2008-09-10 rbs redefine buffer to 80
10 c 2008-11-07 rbs split off banner_start from start_run.f
11 c 2008-11-07 rbs
Write & include clean up
12 c 2012-04-11 rbs: fixed bgin and start
time issues
13 c ----------------------------------------------------------------------
15 c purpose: this subroutines prints a
banner at the begining of a run.
17 c called by:
Program zdem
19 c calls: subroutines date_and_time
21 c files needed for screamer_version
25 character(len=80)::buffer
30 integer,
dimension(8) :: values
32 c ----------------------------------------------------------------------
34 c Write out current version number and date and
time to the screen
36 write (buffer,
'(A,A,A)')
' ***** ',screamer_version,
' *****'
37 call writebuffer(buffer)
39 c get the current date and
time
41 call date_and_time(date,
time,zone,values)
43 write (buffer,
'(A,i2.2,A,i2.2,A,i2.2,A,i3.3,A)')
44 &
' ***** The current time is: '
45 & ,values(5),
':',values(6),
':',values(7),
':',values(8),
' *****'
46 call writebuffer(buffer)
47 write (buffer,
'(A,i2.2,A,i2.2,A,i4.4,A)')
48 &
' ***** The current date is: ',
49 & values(2),
'/',values(3),
'/',values(1),
' *****'
50 call writebuffer(buffer)
51 bgin = values(6)*60 + values(7) + values(8)*1e-3
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c c c &function of time c c shell c &min A K c &trapped field time
subroutine banner_start_run(bgin)
subroutine zdem(ifile, clen)
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c