/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | slavintpoints.f | 349 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 D | preinitialnet.f | 130 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 D | slavintmortar.f | 499 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 D | postinitialnet.f | 43 & 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 D | flux.f | 19 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 D | carbon_seal.f | 51 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 D | characteristic.f | 64 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 D | absolute_relative.f | 52 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 D | user_network_element_p1.f | 19 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 D | interpolcycsymcfd.c | 56 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 D | initialchannel.f | 44 & 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 D | cross_split.f | 36 &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 D | gaspipe_rot.f | 59 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 D | massflow_percent.f | 19 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 D | liquidpump.f | 19 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 D | initialnet.f | 235 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 D | scavenge_pump.f | 18 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 D | vortex.f | 51 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 D | tee.f | 18 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 D | flowoutput.f | 40 & 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 D | gaspipe_fanno.f | 58 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 D | calculatehmid.f | 26 & nodem,i,index local 41 nodem=iedgmid(index) 43 h(nodem)=(h(node1)+h(node2))/2.d0
|
H A D | user_network_element.f | 19 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 D | buildtquad.c | 55 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 D | gencycsymelemcfd.f | 32 & 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)
|