Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
setadder.f
Go to the documentation of this file.
1  subroutine setup_adder (ib, ibk, na, iflgs)
2 c
3 c Define passed variables
4 c
5  integer ib, ibk, na, iflgs
6 c
7 c Setup for adder block.
8 c
9  include 'zdemmax.h'
10  include 'zdemcomm.h'
11  include 'zdemwork.h'
12 c
13 c Set for 2 nodes.
14 c
15  n1 = nr(ib) + 1
16  n2 = n1 + 1
17  na = 2
18 c
19 c Shunt is open, series is open.
20 c
21  g(n1,ib) = 0.0
22  c(n1,ib) = 0.0
23  rr(n1,ib) = 1.0e+6
24  zlr(n1,ib) = 0.0
25  iflg(n1,ib) = iflgs
26  cechk(n1,ib) = 0.0
27  zlrechk(n1,ib) = 0.0
28 c
29  g(n2,ib) = 0.0
30  c(n2,ib) = 0.0
31  rr(n2,ib) = 0.0
32  zlr(n2,ib) = 0.0
33  iflg(n2,ib) = iflgs
34  cechk(n2,ib) = 0.0
35  zlrechk(n2,ib) = 0.0
36 c
37  return
38  end
subroutine setup_adder(ib, ibk, na, iflgs)
Definition: setadder.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