| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | networkelementpernode.f | 19 subroutine networkelementpernode(iponoel,inoel,lakon,ipkon,kon, argument
26 integer iponoel(*),inoel(2,*),ipkon(*),kon(*),i,j,k, local
46 inoel(2,inoelfree)=iponoel(node)
47 iponoel(node)=inoelfree
59 inoel(2,inoelfree)=iponoel(node)
60 iponoel(node)=inoelfree
|
| H A D | film.f | 21 & ipkon,kon,lakon,iponoel,inoel,ielprop,prop,ielmat, argument
151 & kon(*),iponoel(*),inoel(2,*),ielprop(*),ielmat(mi(3),*),ntmat_, local
165 if((node.eq.0).or.(iponoel(node).eq.0)) then
234 iel1=inoel(1,iponoel(node))
235 if(inoel(2,iponoel(node)).ne.0) then
236 iel2=inoel(1,inoel(2,iponoel(node)))
240 if(inoel(2,inoel(2,iponoel(node))).ne.0) then
|
| H A D | elementpernodef.f | 19 subroutine elementpernodef(iponoel,inoel,lakonf,ipkonf,konf,nef) argument
25 integer iponoel(*),inoel(2,*),ipkonf(*),konf(*),i,j,nef, local
50 inoel(2,inoelfree)=iponoel(node)
51 iponoel(node)=inoelfree
|
| H A D | createelemneigh.f | 19 subroutine createelemneigh(nk,iponoel,inoel,istartnneigh, argument
24 integer nk,iponoel(*),inoel(2,*),istartnneigh(*),ialnneigh(*), local
37 index=iponoel(i)
45 index=iponoel(node)
|
| H A D | elementpernode.f | 19 subroutine elementpernode(iponoel,inoel,lakon,ipkon,kon,ne) argument
25 integer iponoel(*),inoel(2,*),ipkon(*),kon(*),i,j,ne, local
60 inoel(2,inoelfree)=iponoel(node)
61 iponoel(node)=inoelfree
|
| H A D | preinitialnet.f | 20 & ielmat,ntmat_,shcon,nshcon,rhcon,nrhcon,mi,iponoel,inoel, argument
45 & nrhcon(*),neighbor,ichange,iponoel(*),inoel(2,*),indexe, local
63 index=iponoel(node)
103 & iponoel,inoel,ipkon,kon)
382 & nodenei,ibranch,iponoel,inoel,ipkon,kon)
387 & nodenei,ibranch,iponoel,inoel,ipkon,kon)
394 & nodenei,ibranch,iponoel,inoel,ipkon,kon)
549 index=iponoel(node1)
629 index=iponoel(node2)
831 index=iponoel(node)
[all …]
|
| H A D | elemperdesi.f | 19 subroutine elemperdesi(ndesi,nodedesi,iponoel,inoel,istartdesi, argument
27 integer ndesi,node,nodedesi(*),iponoel(*),inoel(2,*), local
52 index=iponoel(node)
106 index=iponoel(node)
|
| H A D | presgradient.f | 19 subroutine presgradient(iponoel,inoel,sa,nk,shockcoef, argument
34 integer iponoel(*),inoel(2,*),nk,i,j,k,index,indexe,nope,neqp, local
43 if(iponoel(i).le.0) cycle
49 index=iponoel(i)
|
| H A D | actideactistr.f | 20 & objectset,ipkon,iobject,ne,neinset,iponoel,inoel, argument
31 & iobject,ne,index,nelem,iponoel(*),inoel(2,*),neinset(*), local
66 index=iponoel(ialset(j))
83 index=iponoel(k)
|
| H A D | createialnk.f | 19 subroutine createialnk(nk,iponoel,inoel,istartnk,ialnk,ipkon) argument
23 integer nk,iponoel(*),inoel(2,*),ipkon(*),ielem, local
33 index=iponoel(i)
|
| H A D | networkneighbor.f | 20 & iponoel,inoel,ipkon,kon) argument
29 & iponoel(*),inoel(2,*),ipkon(*),kon(*),iel local
34 index=iponoel(node)
|
| H A D | postinitialnet.f | 20 & ielprop,ielmat,ntmat_,shcon,nshcon,rhcon,nrhcon,mi,iponoel,
44 & nrhcon(*),neighbor,ichange,iponoel(*),inoel(2,*),indexe,
78 index=iponoel(node1)
121 index=iponoel(node2)
|
| H A D | gen3delem.f | 22 & inotr,trab,nk,nk_,iponoel,inoel,iponor,xnor,thicke,thickn, argument
50 & nk_,iponoel(*),inoel(3,*),inoelfree,istep,nmpcold, local
151 inoel(3,inoelfree)=iponoel(node)
152 iponoel(node)=inoelfree
226 call gen3dnor(nk,nk_,co,iponoel,inoel,iponoelmax,kon,ipkon,
429 call gen3dconnect(kon,ipkon,lakon,ne,iponoel,inoel,
441 & xboun,iamboun,typeboun,iponoel,inoel,iponoelmax,kon,ipkon,
451 call gen3dsurf(iponoel,inoel,iponoelmax,kon,ipkon,
469 & ikmpc,ilmpc,labmpc,iponoel,inoel,iponoelmax,kon,ipkon,
476 call gen3dtemp(iponoel,inoel,iponoelmax,kon,ipkon,lakon,ne,
[all …]
|
| H A D | utemp_ccxlib.f | 20 & vold,mi,iponoel,inoel,ipobody,xbody,ibody)
73 integer msecpt,kstep,kinc,node,mi(*),iponoel(*),inoel(2,*),
|
| H A D | cflux.f | 20 & mi,ipkon,kon,lakon,iponoel,inoel,ielprop,prop,ielmat, argument
103 & iponoel(*),inoel(2,*),ielprop(*),ielmat(mi(3),*),nshcon(*), local
|
| H A D | compdt.f | 20 & iponoel,inoel,dtimef,ielmat,dh,cocon, argument
29 integer nk,i,iponoel(*),inoel(2,*),index,nelem,ithermal(*), local
49 index=iponoel(i)
|
| H A D | uboun.f | 20 & iponoel,inoel,ipobody,xbody,ibody,ipkon,kon, argument
121 integer kstep,kinc,node,idof,mi(*),iponoel(*),inoel(2,*), local
|
| H A D | precfdcyc.f | 21 & nsolidsurf,ifreestream,nfreestream,neighsolidsurf,iponoel,inoel, argument
44 & iponoel(*),noden,idn,nope,nodemin,ifree,nef,indexold, local
277 inoel(3,inoelfree)=iponoel(node)
278 iponoel(node)=inoelfree
|
| H A D | utemp.f | 20 & mi,iponoel,inoel,ipobody,xbody,ibody,ipkon,kon, argument
119 integer msecpt,kstep,kinc,node,mi(*),iponoel(*),inoel(2,*), local
|
| H A D | extrapol2dto3d.f | 21 & nodedesimpc,ndesimpc,ne,iponoel,inoel)
34 & iponoel(*),inoel(2,*),nodecor1,nodecor2
|
| H A D | gencycsymelemcfd.f | 21 & inoslav,inomast,iponoel,inoel) argument
34 & ielmast(*),iponoel(*),inoel(3,*),nodeslav,nodemast,ielemslav, local
88 index=iponoel(nodeslav)
187 index=iponoel(nodemast)
|
| H A D | networkmpc_lhs.f | 22 & labmpc,v,nactdog,ac,j,mi,nteq,ipkon,kon,lakon,iponoel, argument
120 & iponoel(*),inoel(2,*),ielprop(*),ielmat(mi(3),*),nshcon(*), local
|
| H A D | networkmpc_rhs.f | 22 & labmpc,v,bc,j,mi,ipkon,kon,lakon,iponoel, argument
112 & iponoel(*),inoel(2,*),ielprop(*),ielmat(mi(3),*),nshcon(*), local
|
| H A D | robustdesign.c | 83 ndesi,iobject,*iponoel=NULL,node,*nodedesi=NULL,*ipoface=NULL,*nodface=NULL, in robustdesign() local
142 NNEW(iponoel,ITG,*nk); in robustdesign()
144 FORTRAN(elementpernode,(iponoel,inoel,lakon,ipkon,kon,ne)); in robustdesign()
194 iponoel,inoel,lakon,ipkon, in robustdesign()
223 FORTRAN(elemperdesi,(&ndesi,nodedesi,iponoel,inoel, in robustdesign()
261 kon,ipkon,lakon,iponoel,inoel,iponor2d,knor2d, in robustdesign()
327 SFREE(iponoel);SFREE(inoel);SFREE(nodedesiinv); in robustdesign()
|
| H A D | createmdelem.f | 23 & iponoel,inoel,prlab,prset,nprint,lakon,set,nset, argument
44 & iponoel(*),inoel(2,*),index,id,nprint,i,j,k,l,indexe, local
54 index=iponoel(node)
|