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