Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
setrlser.f
Go to the documentation of this file.
1  subroutine setup_rlseries (ib, ibk, na, iflgs,
2  & ic_type, ic_counter)
3 c
4 c Define passed variables
5 c
6  integer ib, ibk, na, iflgs, ic_type, ic_counter
7 c
8 c December 10, 1992; hnw
9 c Setup for RL in series.
10 c
11  include 'zdemparm.h'
12  include 'zdemmax.h'
13  include 'zdemcomm.h'
14  include 'zdemwork.h'
15 c
16 c Set for 2 nodes.
17 c
18  n1 = nr(ib) + 1
19  n2 = n1 + 1
20  na = 2
21 c
22 c Set R2 and L2
23 c
24  r2 = pin(1,ibk,ib)
25  zl2 = pin(2,ibk,ib)
26 c
27  g(n1,ib) = 0.0
28  c(n1,ib) = 0.0
29  rr(n1,ib) = r2
30  zlr(n1,ib) = zl2
31  iflg(n1,ib) = iflgs
32  cechk(n1,ib) = 0.0
33  zlrechk(n1,ib) = zl2
34 c
35  g(n2,ib) = 0.0
36  c(n2,ib) = 0.0
37  rr(n2,ib) = 0.0
38  zlr(n2,ib) = 0.0
39  iflg(n2,ib) = iflgs
40  cechk(n2,ib) = 0.0
41  zlrechk(n2,ib) = 0.0
42 c
43 c Set initial current if necessary and the corresponding energy.
44 c
45  if (ic_type .eq. cinductor) then
46  cinitial = value_init(ic_counter)
47  zir(n1,ib) = cinitial
48  zirn(n1,ib) = cinitial
49  eindsource = eindsource + 0.5*zlr(n1,ib)*cinitial*cinitial
50  end if
51 c
52  return
53  end
subroutine setup_rlseries(ib, ibk, na, iflgs, ic_type, ic_counter)
Definition: setrlser.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