Home
last modified time | relevance | path

Searched refs:nodem (Results 1 – 25 of 85) sorted by relevance

1234

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dslavintpoints.f349 nodem2(1)=nodem(1)
350 nodem2(2)=nodem(4)
351 nodem2(3)=nodem(6)
372 nodem2(1)=nodem(4)
373 nodem2(2)=nodem(2)
374 nodem2(3)=nodem(5)
395 nodem2(1)=nodem(5)
396 nodem2(2)=nodem(3)
397 nodem2(3)=nodem(6)
418 nodem2(1)=nodem(4)
[all …]
H A Dpreinitialnet.f130 nodem=kon(indexe+2)
136 if(v(1,nodem).eq.0.d0) v(1,nodem)=1.d-30
143 if(v(1,nodem).eq.0.d0) v(1,nodem)=1.d-30
154 if(v(1,nodem).eq.0.d0) v(1,nodem)=1.d-30
162 if(v(1,nodem).eq.0.d0) v(1,nodem)=1.d-30
168 if(v(1,nodem).eq.0.d0) v(1,nodem)=1.d-30
173 if(v(1,nodem).eq.0.d0) v(1,nodem)=1.d-30
188 nodem=kon(indexe+2)
536 nodem=kon(indexe+2)
816 nodem=kon(indexe+2)
[all …]
H A Dslavintmortar.f499 nodem2(1)=nodem(1)
500 nodem2(2)=nodem(4)
501 nodem2(3)=nodem(6)
524 nodem2(1)=nodem(4)
525 nodem2(2)=nodem(2)
526 nodem2(3)=nodem(5)
549 nodem2(1)=nodem(5)
550 nodem2(2)=nodem(3)
551 nodem2(3)=nodem(6)
574 nodem2(1)=nodem(4)
[all …]
H A Dpostinitialnet.f43 & nelem,index,nshcon(*),ipkon(*),kon(*),nodem,imat,ielprop(*),
64 nodem=kon(indexe+2)
66 if((dabs(v(1,nodem)).le.0.d0).and.
67 & (nactdog(1,nodem).ne.0)) then
94 if(dabs(v(1,nodem)).gt.0.d0) then
99 v(1,nodem)=xflow
108 v(1,nodem)=xflow
137 if(dabs(v(1,nodem)).gt.0.d0) then
142 v(1,nodem)=xflow
151 v(1,nodem)=xflow
H A Dflux.f19 subroutine flux(node1,node2,nodem,nelem,lakon,kon,ipkon, argument
38 integer nelem,nactdog(0:3,*),node1,node2,nodem,numf, local
69 call acctube(node1,node2,nodem,nelem,lakon,kon,ipkon,
78 call air_valve(node1,node2,nodem,nelem,lakon,kon,ipkon,
87 call carbon_seal(node1,node2,nodem,nelem,lakon,
152 call labyrinth(node1,node2,nodem,nelem,lakon,
224 call rcavi(node1,node2,nodem,nelem,lakon,kon,ipkon,
233 call rcavi2(node1,node2,nodem,nelem,lakon,kon,ipkon,
274 call tee(node1,node2,nodem,nelem,lakon,kon,ipkon,
292 call vortex(node1,node2,nodem,nelem,lakon,kon,ipkon,
[all …]
H A Dcarbon_seal.f51 elseif(nactdog(1,nodem).ne.0)then
56 if(v(1,nodem).ne.0.d0) then
57 xflow=v(1,nodem)
99 xflow=v(1,nodem)*iaxial
103 nodef(3)=nodem
109 xflow=-v(1,nodem)*iaxial
113 nodef(3)=nodem
145 xflow=v(1,nodem)*iaxial
150 nodef(3)=nodem
156 xflow=-v(1,nodem)*iaxial
[all …]
H A Dcharacteristic.f64 if(v(1,nodem).ne.0.d0) then
65 xflow=v(1,nodem)
120 xflow=v(1,nodem)*iaxial
125 xflow=v(1,nodem)*iaxial
129 nodef(3)=nodem
141 nodef(3)=nodem
180 xflow=v(1,nodem)*iaxial
188 xflow=v(1,nodem)*iaxial
193 nodef(3)=nodem
203 xflow=-v(1,nodem)*iaxial
[all …]
H A Dabsolute_relative.f52 elseif(nactdog(1,nodem).ne.0)then
57 if(v(1,nodem).ne.0.d0) then
58 xflow=v(1,nodem)
102 xflow=v(1,nodem)*iaxial
108 nodef(3)=nodem
124 xflow=v(1,nodem)*iaxial
130 nodef(3)=nodem
241 xflow=v(1,nodem)*iaxial
247 nodef(3)=nodem
263 xflow=v(1,nodem)*iaxial
[all …]
H A Duser_network_element_p1.f19 subroutine user_network_element_p1(node1,node2,nodem,nelem,lakon, argument
120 integer nelem,nactdog(0:3,*),node1,node2,nodem,numf, local
144 elseif(nactdog(1,nodem).ne.0)then
149 if(v(1,nodem).ne.0.d0) then
150 xflow=v(1,nodem)
187 xflow=v(1,nodem)*iaxial
189 nodef(2)=nodem
198 xflow=-v(1,nodem)*iaxial
200 nodef(2)=nodem
237 xflow=v(1,nodem)*iaxial
[all …]
H A Dinterpolcycsymcfd.c56 nodem=inomast[nodes]; in interpolcycsymcfd()
59 if(imast[id-1]==nodem) continue; in interpolcycsymcfd()
71 idof=8*(nodem-1)+idir; in interpolcycsymcfd()
88 nodempc[3**mpcfree-3]=nodem; in interpolcycsymcfd()
138 idof=8*(nodem-1)+number; in interpolcycsymcfd()
164 nodempc[3**mpcfree-3]=nodem; in interpolcycsymcfd()
217 for(nodem=0;nodem<*nkold;nodem++){ in interpolcycsymcfd()
218 if(inoslav[nodem]==0) continue; in interpolcycsymcfd()
219 nodes=inoslav[nodem]; in interpolcycsymcfd()
272 nodempc[3**mpcfree-3]=nodem+1; in interpolcycsymcfd()
[all …]
H A Dinitialchannel.f44 & nodem,idirf(8),nactdog(0:3,*),imat,ielprop(*),id1,id2,
238 nodem=kon(index+2)
239 if(nactdog(1,nodem).eq.0) then
240 idof=8*(nodem-1)+1
258 nodem=kon(index+2)
259 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow
273 nodem=kon(index+2)
311 call flux(node1,node2,nodem,nelem,lakon,kon,ipkon,
327 nodem=kon(index+2)
328 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow
[all …]
H A Dcross_split.f36 &nelem,nactdog(0:3,*),node1,node2,nodem,numf,kon(*),ipkon(*),
55 elseif(nactdog(1,nodem).ne.0)then
60 if(v(1,nodem).ne.0.d0) then
61 xflow=v(1,nodem)
135 nodef(4)=nodem
150 xflow2=v(1,nodem)*iaxial
162 xflow2=v(1,nodem)*iaxial
173 xflow2=v(1,nodem)*iaxial
223 xflow2=v(1,nodem)*iaxial
235 xflow2=v(1,nodem)*iaxial
[all …]
H A Dgaspipe_rot.f59 if(v(1,nodem).ne.0.d0) then
60 xflow=v(1,nodem)
130 xflow=v(1,nodem)*iaxial
302 xflow=v(1,nodem)*iaxial
314 nodef(3)=nodem
425 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow/iaxial
447 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow/iaxial
485 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow/iaxial
508 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow/iaxial
718 xflow=v(1,nodem)*iaxial
[all …]
H A Dmassflow_percent.f19 subroutine massflow_percent(node1,node2,nodem,nelem,lakon,kon, argument
35 integer nelem,nactdog(0:3,*),node1,node2,nodem,numf, local
58 elseif(nactdog(1,nodem).ne.0)then
63 if(v(1,nodem).ne.0.d0) then
64 xflow=v(1,nodem)
107 xflow=v(1,nodem)*iaxial
113 nodef(3)=nodem
H A Dliquidpump.f19 subroutine liquidpump(node1,node2,nodem,nelem, argument
30 integer nelem,nactdog(0:3,*),node1,node2,nodem, local
49 elseif(nactdog(1,nodem).ne.0)then
55 if(v(1,nodem).ne.0.d0) then
56 xflow=v(1,nodem)
76 xflow=v(1,nodem)*iaxial
83 nodef(2)=nodem
H A Dinitialnet.f235 nodem=kon(indexe+2)
353 nodem=kon(index+2)
551 nodem=kon(index+2)
555 if((nactdog(1,nodem).eq.0).and.(nactdog(3,nodem).eq.0))
608 xflow=v(1,nodem)
717 if(nactdog(1,nodem).ne.0) then
723 v(1,nodem)=xflow
731 if(v(1,nodem).eq.0d0) then
755 & v(1,nodem)
834 nodem=kon(ipkon(nelem)+2)
[all …]
H A Dscavenge_pump.f18 subroutine scavenge_pump(node1,node2,nodem,nelem,lakon,kon,ipkon, argument
33 integer nelem,nactdog(0:3,*),numf,node1,node2,nodem,
49 elseif(nactdog(1,nodem).ne.0)then
54 if(v(1,nodem).ne.0.d0) return
H A Dvortex.f51 elseif(nactdog(1,nodem).ne.0)then
56 if(v(1,nodem).ne.0.d0) then
57 xflow=v(1,nodem)
83 xflow=v(1,nodem)*iaxial
96 nodef(3)=nodem
107 xflow=-v(1,nodem)*iaxial
111 nodef(3)=nodem
355 xflow=v(1,nodem)*iaxial
368 nodef(3)=nodem
379 xflow=v(1,nodem)*iaxial
[all …]
H A Dtee.f18 subroutine tee(node1,node2,nodem,nelem,lakon,kon,ipkon, argument
43 &nodem,
124 elseif(nactdog(1,nodem).ne.0)then
130 if(v(1,nodem).ne.0.d0) then
131 xflow=v(1,nodem)
212 xflow2=v(1,nodem)*iaxial
227 nodef(4)=nodem
274 xflow2=v(1,nodem)*iaxial
H A Dflowoutput.f40 & nactdog(0:3,*),nacteq(0:3,*),ielprop(*),node1,nodem,node2, local
69 nodem=kon(index+2)
72 xflow=v(1,nodem)
105 if(nacteq(2,nodem).ne.0) then
106 ieq=nacteq(2,nodem)
112 call flux(node1,node2,nodem,nelem,lakon,kon,ipkon,
H A Dgaspipe_fanno.f58 elseif(nactdog(1,nodem).ne.0)then
134 if(v(1,nodem)*inv.le.0.d0) then
143 xflow=v(1,nodem)*iaxial
164 if(v(1,nodem)*inv.le.0.d0) then
261 xflow=v(1,nodem)*iaxial
292 nodef(3)=nodem
304 nodef(3)=nodem
369 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow/iaxial
387 if(nactdog(1,nodem).ne.0) v(1,nodem)=xflow/iaxial
586 xflow=v(1,nodem)*iaxial
[all …]
H A Dcalculatehmid.f26 & nodem,i,index local
41 nodem=iedgmid(index)
43 h(nodem)=(h(node1)+h(node2))/2.d0
H A Duser_network_element.f19 subroutine user_network_element(node1,node2,nodem,nelem,lakon,kon, argument
32 integer nelem,nactdog(0:3,*),node1,node2,nodem,numf, local
52 call user_network_element_p0(node1,node2,nodem,nelem,lakon,kon,
61 call user_network_element_p1(node1,node2,nodem,nelem,lakon,kon,
H A Dbuildtquad.c55 ITG i,j,l,nodesf,nodem,istart,icounter,ndim,ifree,ifree2, in buildtquad() local
102 nodem=idcontr2[j]; in buildtquad()
104 ITGFORMAT " c %e \n",nodesf,nodem,contribution); in buildtquad()
105 insertas(&irowtloc,&mast1,&nodesf,&nodem,&ifree,&nzstloc, in buildtquad()
122 nodem=idcontr2[j]; in buildtquad()
124 ITGFORMAT " c %e \n",nodesf,nodem,contribution); in buildtquad()
125 insertas(&irowtlocinv,&mast2,&nodesf,&nodem,&ifree2,&nzstlocinv, in buildtquad()
H A Dgencycsymelemcfd.f32 & mi(*),index,nodes,nodem,nope, local
196 nodem=kon(indexe+k)
197 if(inoslav(nodem).eq.0) then
202 inoslav(nodem)=nk
207 xp(j)=co(j,nodem)
229 vold(j,nk)=vold(j,nodem)
234 inomat(nk)=inomat(nodem)

1234