Home
last modified time | relevance | path

Searched refs:nslavnode (Results 1 – 25 of 49) sorted by relevance

12

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dcheckspcmpc.f67 & islavnode(*),imastnode(*),nslavnode(ntie+1), local
85 do l=nslavnode(i)+1,nslavnode(i+1)
92 & nslavnode(j+1)-nslavnode(j),id)
130 call nident(islavnode(nslavnode(j)+1),node,
131 & nslavnode(j+1)-nslavnode(j),id)
133 if(islavnode(nslavnode(j)+id).eq.node) then
134 islavact(nslavnode(j)+id)=-2
144 call nident(islavnode(nslavnode(j)+1),node2,
145 & nslavnode(j+1)-nslavnode(j),id)
147 if(islavnode(nslavnode(j)+id).eq.node2) then
[all …]
H A Dcreatebd.f232 call nident(islavnode(nslavnode(ict)+1),
233 & nodesf,(nslavnode(ict+1)-nslavnode(ict)),id)
235 igcontr(icounter2+j)=nslavnode(ict)+id
247 call nident(islavnode(nslavnode(ict)+1),
248 & nodesf,(nslavnode(ict+1)-nslavnode(ict)),id)
251 & nslavnode(ict)+id
259 call nident(islavnode(nslavnode(ict)+1),
260 & nodem,(nslavnode(ict+1)-nslavnode(ict)),id)
263 & nslavnode(ict)+id
287 & nodesf,(nslavnode(ict+1)-nslavnode(ict)),id)
[all …]
H A Dcatsmpcslavno.f49 & nslavnode,nmastnode,nboun,ndirboun,nodeboun,nmpc,ipompc, argument
71 & id,node,islavnode(*),imastnode(*),nslavnode(ntie+1), local
89 do l=nslavnode(i)+1,nslavnode(i+1)
130 do l=nslavnode(i)+1,nslavnode(i+1)
268 call nident(islavnode(nslavnode(j)+1),node,
269 & nslavnode(j+1)-nslavnode(j),id)
271 if(islavnode(nslavnode(j)+id).eq.node) then
336 call nident(islavnode(nslavnode(j)+1),node2,
337 & nslavnode(j+1)-nslavnode(j),id)
339 if(islavnode(nslavnode(j)+id).eq.node2) then
[all …]
H A Dinimortar.c181 ITG *nslavnode, ITG *islavnode, in inimortar() argument
316 NNEW(bp,double,nslavnode[*ntie]); in inimortar()
317 NNEW(islavact,ITG,nslavnode[*ntie]); in inimortar()
318 NNEW(gap,double,nslavnode[*ntie]); in inimortar()
321 NNEW(cdisp,double,6*nslavnode[*ntie]); in inimortar()
331 NNEW(bpini,double,nslavnode[*ntie]); in inimortar()
351 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in inimortar()
372 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in inimortar()
409 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in inimortar()
423 NNEW(irowtloc,ITG,3*nslavnode[*ntie]); in inimortar()
[all …]
H A Dexpand_auw.f48 & islavnode,nslavnode,imastnode) argument
56 & nodem,islavnode(*),nslavnode(*),imastnode(*),kflag, local
74 length=nslavnode(j+1)-nslavnode(j)!
78 call nident(islavnode(nslavnode(j)+1),nodes,length,id)
80 if(islavnode(nslavnode(j)+id).eq.nodes) then
81 icol=3*(nslavnode(j)+id-1)+idir
H A Dnortanslav.f32 & islavnode,nslavnode,slavnor,slavtan,mi) argument
48 & islavsurf(2,*),islavnode(*),nslavnode(ntie+1), local
100 do l=nslavnode(i)+1,nslavnode(i+1)
174 call nident(islavnode(nslavnode(i)+1),node,
175 & nslavnode(i+1)-nslavnode(i),id)
176 index1=nslavnode(i)+id
192 do l=nslavnode(i)+1,nslavnode(i+1)
H A Dtiefaccont.f21 & imastnode,nslavnode,nmastnode,nslavs,nmasts,ifacecount,
150 nslavnode(i)=nslavs
180 nslavnode(i+1)=nslavnode(i)+numbern
389 nslavs=nslavnode(i+1)
397 nslavnode(i)=nslavs
453 call nident(islavnode(nslavnode(i)+1),node,
454 & nslavs-nslavnode(i),id)
463 do k=nslavs,nslavnode(i)+id+2,-1
466 islavnode(nslavnode(i)+id+1)=node
510 nslavnode(i+1)=nslavs
[all …]
H A Dcontactmortar.c323 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in contactmortar()
391 islavnode,nslavnode,imastop,gapmints, in contactmortar()
434 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in contactmortar()
460 nzsbd=6*nslavnode[*ntie]; in contactmortar()
461 nzsbdtil=6*nslavnode[*ntie]; in contactmortar()
491 NNEW(u_old,double,3*nslavnode[*ntie]); in contactmortar()
492 NNEW(u_oldt,double,3*nslavnode[*ntie]); in contactmortar()
496 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in contactmortar()
538 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in contactmortar()
556 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in contactmortar()
[all …]
H A Dgenislavactdof.f30 subroutine genislavactdof(ntie,tieset,nactdof,nslavnode, argument
48 integer i,j,k,ntie,node,nslavnode(*), local
80 do j = nslavnode(i)+1,nslavnode(i+1)
H A Dpremortar.c336 NNEW(aubd,double,6*nslavnode[*ntie]); in premortar()
337 NNEW(irowbd,ITG,6*nslavnode[*ntie]); in premortar()
339 NNEW(aubdtil,double,6*nslavnode[*ntie]); in premortar()
340 NNEW(irowbdtil,ITG,6*nslavnode[*ntie]); in premortar()
343 NNEW(irowbdtil2,ITG,6*nslavnode[*ntie]); in premortar()
345 NNEW(audd,double,3*nslavnode[*ntie]); in premortar()
346 NNEW(irowdd,ITG,3*nslavnode[*ntie]); in premortar()
348 NNEW(auddtil,double,3*nslavnode[*ntie]); in premortar()
349 NNEW(irowddtil,ITG,3*nslavnode[*ntie]); in premortar()
355 NNEW(irowddinv,ITG,3*nslavnode[*ntie]); in premortar()
[all …]
H A Dadjustcontactnodes.f21 & mi,imastop,nslavnode,islavnode,set,nset,istartset, argument
36 & ntriangle_,itriold,itrinew,id,nslavnode(*),islavnode(*), local
142 do j=nslavnode(i)+1,nslavnode(i+1)
311 istart=nslavnode(i)+1
312 ilength=nslavnode(i+1)-nslavnode(i)
328 & clearslavnode(k,nslavnode(i)+id)
H A Dinicont.c38 *islavnode=NULL,*imastnode=NULL,*nslavnode=NULL,*nmastnode=NULL, in inicont() local
46 islavnode=*islavnodep;imastnode=*imastnodep;nslavnode=*nslavnodep; in inicont()
90 NNEW(nslavnode,ITG,*ntie+1); in inicont()
103 imastnode,nslavnode,nmastnode,nslavs,&nmasts,ifacecount, in inicont()
118 *nslavnodep=nslavnode;*nmastnodep=nmastnode; in inicont()
H A Dislavactive.f24 & mi,imastop,nslavnode,islavnode,islavact)
34 & nslavnode(*),islavnode(*),islavact(*),ifaceq(8,6),
104 do j=nslavnode(i)+1,nslavnode(i+1)
H A Dstressmortar.c183 NNEW(cold,double,3*nslavnode[*ntie]); in stressmortar()
184 NNEW(cold2,double,3*nslavnode[*ntie]); in stressmortar()
187 NNEW(du,double,3*nslavnode[*ntie]); in stressmortar()
188 NNEW(u_old,double,3*nslavnode[*ntie]); in stressmortar()
257 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in stressmortar()
345 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in stressmortar()
395 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in stressmortar()
415 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in stressmortar()
947 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in stressmortar()
989 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in stressmortar()
[all …]
H A Dgendualcoeffs.f36 & islavact,islavsurf,itiefac,islavnode,nslavnode, argument
53 & nslavnode(ntie+1),itiefac(2,*),ifaces,nelems,jfaces,mi(*), local
119 call nident(islavnode(nslavnode(i)+1),
120 & konl(ifac),(nslavnode(i+1)-nslavnode(i)),id)
121 if(islavnode(nslavnode(i)+id).eq.konl(ifac)) then
122 lnode(2,m)=islavact(nslavnode(i)+id)
134 islavact(nslavnode(i)+id)=-2
135 lnode(2,m)=islavact(nslavnode(i)+id)
143 islavact(nslavnode(i)+id)=-2
144 lnode(2,m)=islavact(nslavnode(i)+id)
H A Dmortar.h58 char *lakon,ITG *nslavnode,
66 ITG *nslavnode,ITG *nmastnode,double *slavnor,
83 ITG *nslavnode,ITG *nmastnode,double *ad,
141 ITG *ntie,ITG *nslavnode,
171 ITG *nslavnode,ITG *nmastnode,ITG *nboun,
224 ITG *nslavnode,double *slavnor,double *slavtan,
230 ITG *nslavnode,ITG *mi,double *pslavsurf,
240 ITG *nslavnode,ITG *islavnode,ITG *islavsurf,
270 ITG *nslavnode,ITG *islavnode,
332 ITG *nslavnode,ITG *nmastnode,
[all …]
H A Dslavintmortar.f45 & islavnode,nslavnode,imastop,gapmints,
63 & islavsurf(2,*),islavnode(*),nslavnode(ntie+1),
287 call nident(islavnode(nslavnode(i)+1),node,
288 & nslavnode(i+1)-nslavnode(i),id)
294 islavact(nslavnode(i)+id)=-1
300 & islavnode(nslavnode(i)+id),
301 & id,islavact(nslavnode(i)+id)
302 if(islavact(nslavnode(i)+id).lt.0) then
303 islavact(nslavnode(i)+id)=0
306 & islavnode(nslavnode(i)+id),
[all …]
H A Dbdfill.c285 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
453 for(j=nslavnode[i];j<nslavnode[i+1];j++){ in bdfill()
794 nzsb=nslavnode[*ntie]; in bdfill()
862 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
890 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
918 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
946 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
1019 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
1899 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
2594 for(j=nslavnode[i]; j<nslavnode[i+1]; j++){ in bdfill()
[all …]
H A Dgenfirstactif.f31 & mi,imastop,nslavnode,islavnode,islavsurf,itiefac,areaslav,
50 & itrinew,id,nslavnode(*),islavnode(*),islavsurf(2,*),
196 do j=nslavnode(i)+1,nslavnode(i+1)
H A Dbuildtquad.c49 ITG *nslavnode,ITG *itiefac,char *tieset, in buildtquad() argument
68 nzstloc=3*nslavnode[*ntie]; in buildtquad()
73 nzstlocinv=3*nslavnode[*ntie]; in buildtquad()
H A Dprecontact.c30 ITG *nslavnode, ITG *nmastnode,ITG *imastop,ITG *mi, in precontact() argument
83 mi,imastop,nslavnode,islavnode,set,nset,istartset, in precontact()
145 islavnode,nslavnode,imastop, in precontact()
H A Dgencontelem_n2f.f23 & nmethod,mi,imastop,nslavnode,islavnode,islavsurf, argument
47 & itrinew,id,nslavnode(*),islavnode(*),islavsurf(2,*), local
356 do j=nslavnode(i)+1,nslavnode(i+1)
609 kbasis=3*(nslavnode(ntie+1)+nmastnode(i)+id-1)
773 jqw(3*nslavnode(ntie+1)+1)=nzsw+1
H A Dcontact.c32 ITG *imastop,ITG *nslavnode,ITG *islavnode,ITG *islavsurf, in contact() argument
84 imastop,nslavnode,islavnode,islavsurf,itiefac,areaslav,iponoels, in contact()
H A Darpack.c92 *islavnode=NULL,*imastnode=NULL,*nslavnode=NULL,*nmastnode=NULL, in arpack() local
221 &islavsurf,&islavnode,&imastnode,&nslavnode,&nmastnode, in arpack()
262 NNEW(islavact,ITG,nslavnode[*ntie]); in arpack()
263 DMEMSET(islavact,0,nslavnode[*ntie],1); in arpack()
272 islavsurf,islavnode,imastnode,nslavnode,nmastnode, in arpack()
344 iperturb,ikboun,nboun,mi,imastop,nslavnode,islavnode,islavsurf, in arpack()
408 mortar,islavact,cdn,islavnode,nslavnode,ntie,clearini, in arpack()
432 mortar,islavact,cdn,islavnode,nslavnode,ntie,clearini, in arpack()
1089 mortar,islavact,cdn,islavnode,nslavnode,ntie,clearini, in arpack()
1114 mortar,islavact,cdn,islavnode,nslavnode,ntie,clearini, in arpack()
[all …]
H A Dresultsprint.f26 & islavact,cdn,mortar,islavnode,nslavnode,ntie,islavsurf,time, argument
58 & islavact(*),islavnode(*),nslavnode(*),ntie,islavsurf(2,*), local
235 & islavact,islavnode,nslavnode,ntie,islavsurf,ielprop,prop,

12