1 c----------------------------------------------------------------------
2 c @(#)zdemmax.h version 1.2 created 02/16/99 09:49:17
3 c Last modified: 4-Jan-1999 16:07:34 klf
5 c----------------------------------------------------------------------
6 c *****************************************************************************
7 c This is a
file giving the array dimensions
for ZDEM.
10 c ---------------------------------------------------------------------
13 c 05/30/95, Reduced max_branches to 15 from 20
14 c 2012-04-11
RBS: Increased max_branches to 65 as per Stygar request
15 c 2012-04-11
RBS: Increased max_var_elem to 65 as per Stygar request
16 c 2014-05-01
RBS: Create a
new max parameter, max_switch_points
18 c ---------------------------------------------------------------------
20 parameter (max_branches = 65)
21 parameter (max_blocks = 300)
22 parameter (max_nodes = 7500)
23 parameter (max_vars = 5)
24 parameter (max_cols = 3*max_vars + 1)
25 parameter (max_elem_parms = 10)
26 parameter (max_iin_specs = 5)
28 parameter (max_plot_points = 8001)
29 parameter (max_table_points = 1001)
30 parameter (max_var_elem = 65)
31 parameter (max_switch_points = 40)
33 c Don't reduce max_var_parms below 15
35 parameter (max_var_parms = 40)
36 parameter (max_init_cond = max_branches + 1)
37 parameter (max_volt_source = max_branches + 1)
38 parameter (max_volt_func_parms = 2*max_table_points + 2)
39 parameter (max_curr_source = max_branches + 1)
40 parameter (max_curr_func_parms = 2*max_table_points + 2)
41 parameter (max_tablem_vals = 2*max_table_points + 2)
42 parameter (max_trline = 6000)
43 parameter (max_mitl = 100)
44 parameter (max_trline_nodes = 6001)
45 parameter (max_transformer = 5)
46 parameter (max_uservars = 10)
47 parameter (max_mzflowblocks = 20)
49 c Set (dependent on above) dimensions of scratch arrays.
51 parameter (max_bb = max_nodes * max_vars * max_branches)
52 parameter (max_cc = max_bb)
53 parameter (max_a = max_bb * max_cols)
54 parameter (max_x = max_bb)
56 c Parameters for the multiple shell
model
58 parameter (max_shells = 20)
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 c153 c c c Sin c c c remaining calls in rdscrelem c Tabular a10 Cond c c c &used with this model c Exponential model of a resistive c c c Rise model of a resistive c c Z FLOW POS model
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 RBS
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
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