Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
setrcgnd.f
Go to the documentation of this file.
1  subroutine setup_rcground (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 RC to ground.
10 c
11  include 'zdemparm.h'
12  include 'zdemmax.h'
13  include 'zdemcomm.h'
14  include 'zdemwork.h'
15 c
16 c Set for one node.
17 c
18  n1 = nr(ib)+1
19  na = 1
20  r1 = pin(1,ibk,ib)
21  c1 = pin(2,ibk,ib)
22 c
23 c Set R1 and C1
24 c
25  g(n1,ib) = 1.0 / (r1 + 1.0e-20)
26  c(n1,ib) = c1
27  rr(n1,ib) = 0.0
28  zlr(n1,ib) = 0.0
29  iflg(n1,ib) = iflgs
30  cechk(n1,ib) = c1
31  zlrechk(n1,ib) = 0.0
32 c
33 c Set initial voltage if necessary and the corresponding energy.
34 c
35  if (ic_type .eq. vcapacitor1) then
36  vinitial = value_init(ic_counter)
37  v(n1,ib) = vinitial
38  vn(n1,ib) = vinitial
39  ecapsource = ecapsource + 0.5*c(n1,ib)*vinitial*vinitial
40  end if
41 c
42  return
43  end
subroutine setup_rcground(ib, ibk, na, iflgs, ic_type, ic_counter)
Definition: setrcgnd.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