1 c----------------------------------------------------------------------
2 c @(#)zdemcomm.h version 1.2 created 02/16/99 09:46:07
3 c Last modified: 19-Jan-1999 13:54:50 klf
5 c----------------------------------------------------------------------
6 c *****************************************************************************
7 c This is the common
block used
for entering data into
zdem when
using
8 c read_screamer_data To
get this into the program,
use include
'zdemcomm.h'
9 c *****************************************************************************
12 c -----------------------------------------------------------------------
14 c 1994-07-03
KWS: Added pointer variables
for finding
15 c variable element parameters.
16 c 1995-07-19
MLK: Added variable to store status of detail
for
18 c 2014-02-06
RBS: Changed real*4 to real
19 c Explicit definition of real, integer common/input/
20 c Reorder of variables in common/input/ 64-bit first
21 c 2014-05-01
RBS: Create a new real vector for
switch table data values
22 c the vector name is switch_time
23 c 2014-05-04
RBS: Changed integer*4 to integer
24 c -----------------------------------------------------------------------
29 & currf_parms(max_curr_func_parms, max_curr_source), ht,
30 & pin(max_elem_parms,max_blocks,max_branches), res_time,
31 & switch_time(max_switch_points),
32 & tablem_vals (max_tablem_vals, max_var_elem), tmax,
33 & var_model(max_var_parms, max_var_elem),
34 & value_init(max_init_cond),
35 & voltf_parms(max_volt_func_parms, max_volt_source)
38 & icbranch_end(max_branches),
39 & icurrf(max_curr_source),
40 & iin(max_iin_specs,max_blocks,max_branches),
41 & imitl_type(max_mitl), iset,
43 & itrl_type(max_trline), itypcend(max_branches),
44 & ivar_block(max_var_elem), ivar_block_num(max_var_elem),
45 & ivar_type(max_var_elem),
46 & ivbranch_end(max_branches),
47 & ivoltf(max_volt_source),
48 & nb, nbk(max_branches), ncurrsource, ninit_cond, nmitline,
49 & nprint, ntransformer, ntransline,
50 & num_currf_parms(max_curr_source), num_tablem_vals(max_var_elem),
51 & num_var_parms(max_var_elem), num_voltf_parms(max_volt_source),
66 & itrl_type, itypcend,
67 & ivar_block, ivar_block_num,
71 & nb, nbk, ncurrsource, ninit_cond, nmitline,
72 & nprint, ntransformer, ntransline,
73 & num_currf_parms, num_tablem_vals,
74 & num_var_parms, num_voltf_parms,
78 common /title_block/ title
80 c Some pointers for output control.
83 & nsteps, plot_grid, maxfpts, echoset, detail_prints,
87 & nsteps, plot_grid, maxfpts, echoset, detail_prints,
90 c Initial energy in inductors and capacitors due to initial current or voltage.
92 real ecapsource, eindsource
93 common /einitial/ ecapsource, eindsource
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 KWS
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into use
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 This is a Fortran header MLK
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 c c c c SW1 c c c158 MFI Insulator CB c c c c161 Z FLOW Plasma Loss Current c c c Applied B Diode c &Ion Ion c c c c Initial c PRINT Output Request for block
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
c *****************************************************************************c Common blocks for SCREAMER output printing
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 *****************************************************************************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 switch
c This is a Fortran header file