Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
findnode.f
Go to the documentation of this file.
1  integer function ifnodreq (otype, lastnode, numnodes)
2 c
3 c Define passed variables
4 c
5  integer otype, lastnode, numnodes
6 c
7 c Modifications: Mark Kiefer, 3/7/95
8 c change include filenames to be 8 characters or less
9 c Mark Kiefer, 2/14/97
10 c changed `type` variable to `otype` so as not to
11 c conflict with Fortran 90 TYPE statement
12 c
13 c Find the node associated with this output request.
14 c
15  include 'zdemmax.h'
16  include 'zdempprm.h'
17  include 'zdemout.h'
18 c
19  integer*4 firstnode
20 c
21  firstnode = lastnode - numnodes + 1
22 c
23 c
24 c Set the output variable node based on plot type.
25 c
26  if (otype .eq. ip_vr1) then
27  ifnodreq = firstnode
28  else if (otype .eq. ip_vr2) then
29  ifnodreq = firstnode
30  else if (otype .eq. ip_vr3) then
31  ifnodreq = lastnode
32  else if (otype .eq. ip_ir1) then
33  ifnodreq = firstnode
34  else if (otype .eq. ip_ir2) then
35  ifnodreq = firstnode
36  else if (otype .eq. ip_ir3) then
37  ifnodreq = lastnode
38  else if (otype .eq. ip_pr1) then
39  ifnodreq = firstnode
40  else if (otype .eq. ip_pr2) then
41  ifnodreq = firstnode
42  else if (otype .eq. ip_pr3) then
43  ifnodreq = lastnode
44  else if (otype .eq. ip_er1) then
45  ifnodreq = firstnode
46  else if (otype .eq. ip_er2) then
47  ifnodreq = firstnode
48  else if (otype .eq. ip_er3) then
49  ifnodreq = lastnode
50  else if (otype .eq. ip_r1) then
51  ifnodreq = firstnode
52  else if (otype .eq. ip_r2) then
53  ifnodreq = firstnode
54  else if (otype .eq. ip_r3) then
55  ifnodreq = lastnode
56  else if (otype .eq. ip_qr1) then
57  ifnodreq = firstnode
58  else if (otype .eq. ip_qr2) then
59  ifnodreq = firstnode
60  else if (otype .eq. ip_qr3) then
61  ifnodreq = lastnode
62  else if (otype .eq. ip_vc1) then
63  ifnodreq = firstnode
64  else if (otype .eq. ip_vc3) then
65  ifnodreq = lastnode
66  else if (otype .eq. ip_ic1) then
67  ifnodreq = firstnode
68  else if (otype .eq. ip_ic3) then
69  ifnodreq = lastnode
70  else if (otype .eq. ip_pc1) then
71  ifnodreq = firstnode
72  else if (otype .eq. ip_pc3) then
73  ifnodreq = lastnode
74  else if (otype .eq. ip_ec1) then
75  ifnodreq = firstnode
76  else if (otype .eq. ip_ec3) then
77  ifnodreq = lastnode
78  else if (otype .eq. ip_c1) then
79  ifnodreq = firstnode
80  else if (otype .eq. ip_c3) then
81  ifnodreq = lastnode
82  else if (otype .eq. ip_qc1) then
83  ifnodreq = firstnode
84  else if (otype .eq. ip_qc3) then
85  ifnodreq = lastnode
86  else if (otype .eq. ip_c1e) then
87  ifnodreq = firstnode
88  else if (otype .eq. ip_c3e) then
89  ifnodreq = lastnode
90  else if (otype .eq. ip_vl2) then
91  ifnodreq = firstnode
92  else if (otype .eq. ip_il2) then
93  ifnodreq = firstnode
94  else if (otype .eq. ip_pl2) then
95  ifnodreq = firstnode
96  else if (otype .eq. ip_el2) then
97  ifnodreq = firstnode
98  else if (otype .eq. ip_l2) then
99  ifnodreq = firstnode
100  else if (otype .eq. ip_fl2) then
101  ifnodreq = firstnode
102  else if (otype .eq. ip_ql2) then
103  ifnodreq = firstnode
104  else if (otype .eq. ip_l2e) then
105  ifnodreq = firstnode
106  else if (otype .eq. ip_vsrc) then
107  ifnodreq = firstnode
108  else if (otype .eq. ip_isrc) then
109  ifnodreq = firstnode
110  else if (otype .eq. ip_psrc) then
111  ifnodreq = firstnode
112  else if (otype .eq. ip_esrc) then
113  ifnodreq = firstnode
114  else if (otype .eq. ip_qsrc) then
115  ifnodreq = firstnode
116  else if (otype .eq. ip_vin) then
117  ifnodreq = firstnode
118  else if (otype .eq. ip_iin) then
119  ifnodreq = firstnode
120  else if (otype .eq. ip_pin) then
121  ifnodreq = firstnode
122  else if (otype .eq. ip_ein) then
123  ifnodreq = firstnode
124  else if (otype .eq. ip_qin) then
125  ifnodreq = firstnode
126  else if (otype .eq. ip_vout) then
127  ifnodreq = lastnode
128  else if (otype .eq. ip_iout) then
129  ifnodreq = lastnode
130  else if (otype .eq. ip_pout) then
131  ifnodreq = lastnode
132  else if (otype .eq. ip_eout) then
133  ifnodreq = lastnode
134  else if (otype .eq. ip_qout) then
135  ifnodreq = lastnode
136 c
137 c If this is a user variable, set the node to the first
138 c node. We really do not need the node number to process
139 c user variables, but we get it anyways to keep everything
140 c consistant.
141 c
142  else if (otype .eq. ip_u1) then
143  ifnodreq = firstnode
144  else if (otype .eq. ip_u2) then
145  ifnodreq = firstnode
146  else if (otype .eq. ip_u3) then
147  ifnodreq = firstnode
148  else if (otype .eq. ip_u4) then
149  ifnodreq = firstnode
150  else if (otype .eq. ip_u5) then
151  ifnodreq = firstnode
152  else if (otype .eq. ip_u6) then
153  ifnodreq = firstnode
154  else if (otype .eq. ip_u7) then
155  ifnodreq = firstnode
156  else if (otype .eq. ip_u8) then
157  ifnodreq = firstnode
158  else if (otype .eq. ip_u9) then
159  ifnodreq = firstnode
160  else if (otype .eq. ip_u10) then
161  ifnodreq = firstnode
162 c
163 c If this is a transmission line energy or power check (stored or
164 c dissipated), set the node to the first
165 c node.
166 c
167  else if (otype .eq. ip_edline) then
168  ifnodreq = firstnode
169  else if (otype .eq. ip_pdline) then
170  ifnodreq = firstnode
171  else if (otype .eq. ip_eline) then
172  ifnodreq = firstnode
173  else if (otype .eq. ip_pline) then
174  ifnodreq = firstnode
175  end if
176 c
177  return
178  end
integer function ifnodreq(otype, lastnode, numnodes)
Definition: findnode.f:1