3 c-------description----------------------------------------------------
9 c purpose: this
subroutine is for the mac_absoft version of screamer
10 c only.
it writes a message to the screen.
16 c-------modifications---------------------------------------------------
18 c 02/12/99, kls, added comments
19 c 03/09/99, kls, added absoft f90 name compiler directive
21 c-------input parameters------------------------------------------------
26 c-------
Subroutine body-------------------------------------------------
28 c absoft fortran 90 compiler directive. this is required because the
29 c compiler automatically converts symbol names(including subroutine
30 c names) to upper case. the link fails because the system library refers
31 c to the mrwe_showalert
subroutine with mixed case.
33 cdir$ name(mrwe_showalert=
"mrwe_ShowAlert")
34 call mrwe_showalert(button,message)
36 c-------
Subroutine end--------------------------------------------------
subroutine alertmsg(button, message)
int main(int argc, char *argv[])
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 it(branch ', i2, ')*****') c 17 format(' '
function calc_resistance(time, npts, pts, ltime)
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