3 c-----description-------------------------------------------------------
5 c author/date: mathias bavay 11/04
8 c 2008-11-07 rbs: cleaned up writes and variable definitions
9 c now log
file now records date and
time correctly
10 c 2012-04-11 rbs: fixed run
time and cleaned up routine.
11 c 2014-02-06 rbs: changed
real*4 to real
12 c 2014-05-02 rbs: explicitly defined bgin as real
14 c ----------------------------------------------------------------------
16 c purpose: this subroutines prints a
banner at the
end of a run.
18 c called by:
Program zdem
22 c files needed for variables inpfile and screamer_version
26 c define passed variables
32 c define internal variables
39 integer,
dimension(8) :: values
41 c-----variable for
c++ stdout-------------------------------------------
42 character(len=80)::buffer
43 c ----------------------------------------------------------------------
45 endln =
'End of Simulation'
47 c set delta
time in
real seconds (final) knowing initial
time bgin
49 call date_and_time(date,
time,zone,values)
50 final = values(6)*60 + values(7) + values(8)*1e-3 - bgin
51 write (buffer,
'(A,f12.5,A)')
' Run time:',final,
' seconds'
52 call writebuffer(buffer)
54 c finish up with summary
58 write(9,
'(/A,A)')
'The SCREAMER input file used: ',ifile(1:clen)
59 write(9,
'(A,i2.2,A,i2.2)')
60 &
' Current time: ',values(5),
':',values(6)
62 c write (buffer,
'(A,i2.2,A,i2.2,A,i4)')
63 c &
' Current date: ',values(2),
'/',values(3),
'/',values(1)
64 c call writebuffer(buffer)
65 write(9,
'(A,f12.3,A)')
66 &
' Run time: ',final,
' seconds'
67 write(9,
'(A)') screamer_version
71 write(buffer,
'(A)')
' Done'
72 call writebuffer(buffer)
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_end_run(ifile, clen, 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
c This is a Fortran header file