Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
zdemcomm.h
Go to the documentation of this file.
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
4 C_Groups @(#)
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 *****************************************************************************
10 c file zdemcomm.h
11 c
12 c -----------------------------------------------------------------------
13 c Modified:
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
17 c log file printing (detail_prints)
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 -----------------------------------------------------------------------
25 c
26 c Input arrays
27 c
28  real
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)
36 
37  integer
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,
42  & iswitch,
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),
52  & nvar, nvoltsource
53 
54  common /input/
55  & currf_parms, ht,
56  & pin, res_time,
57  & switch_time,
58  & tablem_vals, tmax,
59  & var_model,
60  & value_init,
61  & voltf_parms,
62  & icbranch_end,
63  & icurrf,
64  & iin,
65  & imitl_type, iset,
66  & itrl_type, itypcend,
67  & ivar_block, ivar_block_num,
68  & ivar_type,
69  & ivbranch_end,
70  & ivoltf,
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,
75  & nvar, nvoltsource
76 
77  character title*80
78  common /title_block/ title
79 c
80 c Some pointers for output control.
81 c
82  integer
83  & nsteps, plot_grid, maxfpts, echoset, detail_prints,
84  & invarl(maxout), inumout
85 
86  common /output/
87  & nsteps, plot_grid, maxfpts, echoset, detail_prints,
88  & invarl, inumout
89 c
90 c Initial energy in inductors and capacitors due to initial current or voltage.
91 c
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
Definition: zdemfmt.h:7
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into use
Definition: zdemfmt.h:7
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
Definition: zdemfmt.h:7
c This is a Fortran header MLK
Definition: sfc.h:3
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
Definition: zdemfmt.h:192
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
Definition: zdemout.h:40
c *****************************************************************************c Common blocks for SCREAMER output printing
Definition: zdemout.h:2
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 *****************************************************************************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
Definition: zdemfmt.h:118
c This is a Fortran header file
Definition: sfc.h:3