1 integer function ifnodreq (otype, lastnode, numnodes)
5 integer otype, lastnode, numnodes
21 firstnode = lastnode - numnodes + 1
26 if (otype .eq. ip_vr1)
then
28 else if (otype .eq. ip_vr2)
then
30 else if (otype .eq. ip_vr3)
then
32 else if (otype .eq. ip_ir1)
then
34 else if (otype .eq. ip_ir2)
then
36 else if (otype .eq. ip_ir3)
then
38 else if (otype .eq. ip_pr1)
then
40 else if (otype .eq. ip_pr2)
then
42 else if (otype .eq. ip_pr3)
then
44 else if (otype .eq. ip_er1)
then
46 else if (otype .eq. ip_er2)
then
48 else if (otype .eq. ip_er3)
then
50 else if (otype .eq. ip_r1)
then
52 else if (otype .eq. ip_r2)
then
54 else if (otype .eq. ip_r3)
then
56 else if (otype .eq. ip_qr1)
then
58 else if (otype .eq. ip_qr2)
then
60 else if (otype .eq. ip_qr3)
then
62 else if (otype .eq. ip_vc1)
then
64 else if (otype .eq. ip_vc3)
then
66 else if (otype .eq. ip_ic1)
then
68 else if (otype .eq. ip_ic3)
then
70 else if (otype .eq. ip_pc1)
then
72 else if (otype .eq. ip_pc3)
then
74 else if (otype .eq. ip_ec1)
then
76 else if (otype .eq. ip_ec3)
then
78 else if (otype .eq. ip_c1)
then
80 else if (otype .eq. ip_c3)
then
82 else if (otype .eq. ip_qc1)
then
84 else if (otype .eq. ip_qc3)
then
86 else if (otype .eq. ip_c1e)
then
88 else if (otype .eq. ip_c3e)
then
90 else if (otype .eq. ip_vl2)
then
92 else if (otype .eq. ip_il2)
then
94 else if (otype .eq. ip_pl2)
then
96 else if (otype .eq. ip_el2)
then
98 else if (otype .eq. ip_l2)
then
100 else if (otype .eq. ip_fl2)
then
102 else if (otype .eq. ip_ql2)
then
104 else if (otype .eq. ip_l2e)
then
106 else if (otype .eq. ip_vsrc)
then
108 else if (otype .eq. ip_isrc)
then
110 else if (otype .eq. ip_psrc)
then
112 else if (otype .eq. ip_esrc)
then
114 else if (otype .eq. ip_qsrc)
then
116 else if (otype .eq. ip_vin)
then
118 else if (otype .eq. ip_iin)
then
120 else if (otype .eq. ip_pin)
then
122 else if (otype .eq. ip_ein)
then
124 else if (otype .eq. ip_qin)
then
126 else if (otype .eq. ip_vout)
then
128 else if (otype .eq. ip_iout)
then
130 else if (otype .eq. ip_pout)
then
132 else if (otype .eq. ip_eout)
then
134 else if (otype .eq. ip_qout)
then
142 else if (otype .eq. ip_u1)
then
144 else if (otype .eq. ip_u2)
then
146 else if (otype .eq. ip_u3)
then
148 else if (otype .eq. ip_u4)
then
150 else if (otype .eq. ip_u5)
then
152 else if (otype .eq. ip_u6)
then
154 else if (otype .eq. ip_u7)
then
156 else if (otype .eq. ip_u8)
then
158 else if (otype .eq. ip_u9)
then
160 else if (otype .eq. ip_u10)
then
167 else if (otype .eq. ip_edline)
then
169 else if (otype .eq. ip_pdline)
then
171 else if (otype .eq. ip_eline)
then
173 else if (otype .eq. ip_pline)
then
integer function ifnodreq(otype, lastnode, numnodes)