Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
alertmsg.f
Go to the documentation of this file.
1  Subroutine alertmsg(button,message)
2 c
3 c-------description----------------------------------------------------
4 c
5 c source file: alertmsg.f
6 c
7 c author: ken struve
8 c
9 c purpose: this subroutine is for the mac_absoft version of screamer
10 c only. it writes a message to the screen.
11 c
12 c called by: Program zdem$main
13 c
14 c calls: Function calc_resistance
15 c
16 c-------modifications---------------------------------------------------
17 c
18 c 02/12/99, kls, added comments
19 c 03/09/99, kls, added absoft f90 name compiler directive
20 c
21 c-------input parameters------------------------------------------------
22 c
23  integer button
24  character*120 message
25 c
26 c-------Subroutine body-------------------------------------------------
27 c
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.
32 
33 cdir$ name(mrwe_showalert="mrwe_ShowAlert")
34  call mrwe_showalert(button,message)
35 c
36 c-------Subroutine end--------------------------------------------------
37 c
38  return
39  end
subroutine alertmsg(button, message)
Definition: alertmsg.f:1
int main(int argc, char *argv[])
Definition: cprog.cpp:19
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)
Definition: calcres.f:1
subroutine zdem(ifile, clen)
Definition: zdem.f:1
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
Definition: zdemfmt.h:7
c This is a Fortran header file
Definition: sfc.h:3