Home
last modified time | relevance | path

Searched refs:nintpoint (Results 1 – 25 of 27) sorted by relevance

12

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dtreatmasterface_mortar.f52 & nelemm,nintpoint,pslavsurf, argument
64 & nactiveline,ifreeintersec,nmp,i,j,k,nintpoint,imastsurf(*), local
86 nipold=nintpoint
238 nintpoint=nintpoint+1
285 gapmints(nintpoint)=spm
286 pslavsurf(1,nintpoint)=xil
287 pslavsurf(2,nintpoint)=etl
292 pslavsurf(3,nintpoint)=area*weight2d6(i)/0.5
293 pmastsurf(1,nintpoint)=xilm
294 pmastsurf(2,nintpoint)=etlm
[all …]
H A Dtreatmasterface.f25 & ifreeintersec,nelemm,nintpoint,pslavsurf,
33 & nactiveline,ifreeintersec,nmp,i,j,k,nintpoint,
47 nipold=nintpoint
138 nintpoint=nintpoint+1
150 pslavsurf(1,nintpoint)=xil
151 pslavsurf(2,nintpoint)=etl
155 pslavsurf(3,nintpoint)=2.d0*area*weight2d6(i)
H A Dslavintpoints.f26 & lakon,straight,nintpoint,
77 nintpfirst=nintpoint
78 islavsurf(2,l)=nintpoint
338 & nintpoint,pslavsurf,
365 & nintpoint,pslavsurf,
388 & nintpoint,pslavsurf,
411 & nintpoint,pslavsurf,
434 & nintpoint,pslavsurf,
557 & nintpoint,pslavsurf,
881 & nintpoint,pslavsurf,
[all …]
H A Dslavintmortar.f59 integer ntie,nintpoint,imastop(3,*),ncont,
109 nintpfirst=nintpoint
110 islavsurf(2,l)=nintpoint
487 & nintpoint,pslavsurf,imastsurf,pmastsurf,
515 & nintpoint,pslavsurf,imastsurf,pmastsurf,
540 & nintpoint,pslavsurf,imastsurf,pmastsurf,
565 & nintpoint,pslavsurf,imastsurf,pmastsurf,
590 & nintpoint,pslavsurf,imastsurf,pmastsurf,
617 & nintpoint,pslavsurf,imastsurf,pmastsurf,
641 & nintpoint,pslavsurf,imastsurf,pmastsurf,
[all …]
H A Drestartshort.f24 & ifacecount,nintpoint,infree,nef,mpcend,nheading_,network)
38 & nmethod,iperturb(2),meminset(*),rmeminset(*),nintpoint,
180 read(15)nintpoint
192 & mcs,ntie,nslavs,nprop,mortar,ifacecount,nintpoint,
319 read(15)nintpoint
332 & nslavs,nprop,mortar,ifacecount,nintpoint,nef,nheading_)
H A Dcontactmortar.c388 straight,&nintpoint,koncont,co,vold, in contactmortar()
398 nintpoint); in contactmortar()
399 if (nintpoint!=0){ in contactmortar()
400 RENEW(imastsurf,ITG,nintpoint); in contactmortar()
404 if (nintpoint!=0){ in contactmortar()
405 RENEW(gapmints,double,nintpoint); in contactmortar()
409 if (nintpoint!=0){ in contactmortar()
410 RENEW(pmastsurf,double,2*nintpoint); in contactmortar()
414 if (nintpoint!=0){ in contactmortar()
415 RENEW(pslavsurf,double,3*nintpoint); in contactmortar()
[all …]
H A Dremastruct.c36 ITG *network,ITG *itiefac,ITG *ne0,ITG *nkon0,ITG *nintpoint, in remastruct() argument
87 NNEW(ipkontot,ITG,*ne0+*nintpoint); in remastruct()
88 NNEW(kontot,ITG,*nkon0+22**nintpoint); in remastruct()
89 NNEW(lakontot,char,8*(*ne0+*nintpoint)); in remastruct()
H A Darpack.c148 maxprevcontel=*nintpoint; in arpack()
152 NNEW(pslavsurfold,double,3**nintpoint); in arpack()
156 sizeof(double)*(3**nintpoint)); in arpack()
267 *nintpoint=0; in arpack()
279 RENEW(kon,ITG,*nkon+22**nintpoint); in arpack()
280 RENEW(springarea,double,2**nintpoint); in arpack()
281 RENEW(pmastsurf,double,6**nintpoint); in arpack()
286 RENEW(ipkon,ITG,*ne+*nintpoint); in arpack()
287 RENEW(lakon,char,8*(*ne+*nintpoint)); in arpack()
313 if((*nintpoint>0)&&(maxprevcontel>0)){ in arpack()
[all …]
H A Dskip.f24 & nslavs,nprop,mortar,ifacecount,nintpoint,nef,nheading_)
32 & maxamta,mcs,ntie,nbody,nslavs,nintpoint,ifacecount,nef,
271 read(15)(r8,i=1,nstate_*mi(1)*(ne+nintpoint))
279 read(15) (r8,i=1,3*nintpoint)
H A Drestartread.f37 & t0g,t1g,nprop,ielprop,prop,mortar,nintpoint,ifacecount, argument
63 & inotr(*),mortar,nintpoint,ifacecount,islavsurf(*), local
195 read(15)nintpoint
208 & nslavs,nprop,mortar,ifacecount,nintpoint,nef,nheading_)
432 read(15)(xstate(i),i=1,nstate_*mi(1)*(ne+nintpoint))
440 read(15) (pslavsurf(i),i=1,3*nintpoint)
H A Dprecontact.c32 ITG *nintpoint,double **pslavsurfp,double *xmastnor,double *cs, in precontact() argument
141 RENEW(pslavsurf,double,3*(*nintpoint+ntri*66)); in precontact()
143 lakon,straight,nintpoint,koncont,co,vold, in precontact()
H A Drestartwrite.f37 & nprop,ielprop,prop,mortar,nintpoint,ifacecount,islavsurf,
70 & inotr(*),nintpoint,ifacecount,islavsurf(*),ielprop(*),
208 write(15)nintpoint
446 write(15)(xstate(i),i=1,nstate_*mi(1)*(ne+nintpoint))
454 write(15) (pslavsurf(i),i=1,3*nintpoint)
H A Dlinstatic.c236 nintpoint=0; in linstatic()
248 RENEW(kon,ITG,*nkon+22*nintpoint); in linstatic()
249 RENEW(springarea,double,2*nintpoint); in linstatic()
250 RENEW(pmastsurf,double,6*nintpoint); in linstatic()
253 RENEW(ener,double,mi[0]*(*ne+nintpoint)*2); in linstatic()
255 RENEW(ipkon,ITG,*ne+nintpoint); in linstatic()
256 RENEW(lakon,char,8*(*ne+nintpoint)); in linstatic()
259 RENEW(ielorien,ITG,mi[2]*(*ne+nintpoint)); in linstatic()
262 RENEW(ielmat,ITG,mi[2]*(*ne+nintpoint)); in linstatic()
269 RENEW(xstate,double,*nstate_*mi[0]*(ne0+nintpoint)); in linstatic()
[all …]
H A Drestarts.f38 & ielprop,prop,mortar,nintpoint,ifacecount,islavsurf,pslavsurf,
64 & inotr(*),nprop,ielprop(*),mortar,nintpoint,ifacecount,
135 & t0g,t1g,nprop,ielprop,prop,mortar,nintpoint,ifacecount,
H A Darpackcs.c164 maxprevcontel=*nintpoint; in arpackcs()
168 NNEW(pslavsurfold,double,3**nintpoint); in arpackcs()
172 sizeof(double)*(3**nintpoint)); in arpackcs()
274 *nintpoint=0; in arpackcs()
286 RENEW(kon,ITG,*nkon+22**nintpoint); in arpackcs()
287 RENEW(springarea,double,2**nintpoint); in arpackcs()
288 RENEW(pmastsurf,double,6**nintpoint); in arpackcs()
293 RENEW(ipkon,ITG,*ne+*nintpoint); in arpackcs()
294 RENEW(lakon,char,8*(*ne+*nintpoint)); in arpackcs()
320 if((*nintpoint>0)&&(maxprevcontel>0)){ in arpackcs()
[all …]
H A Dini_cal.c28 ITG *nload_,ITG *nforc_,ITG *nboun_,ITG *nintpoint,ITG *iperturb, in ini_cal() argument
159 *nintpoint=0; in ini_cal()
H A Dnonlingeo.c291 maxprevcontel=*nintpoint; in nonlingeo()
295 MNEW(pslavsurfold,double,3**nintpoint); in nonlingeo()
1690 isiz=3**nintpoint; in nonlingeo()
1696 *nintpoint=0; in nonlingeo()
1711 RENEW(kon,ITG,*nkon+22**nintpoint); in nonlingeo()
1713 RENEW(pmastsurf,double,6**nintpoint); in nonlingeo()
1720 DOUMEMSET(ener,mi[0]*(2**ne+*nintpoint),mi[0]*(*ne+*nintpoint)*2, in nonlingeo()
1724 RENEW(ipkon,ITG,*ne+*nintpoint); in nonlingeo()
1732 isiz=mi[2]**nintpoint; in nonlingeo()
1747 isiz=*nstate_*mi[0]**nintpoint; in nonlingeo()
[all …]
H A DCalculiXstep.c198 k,nzs[3],nmpc_,nload_,nforc_,istep,istat,nboun_,nintpoint, in CalculiXstep() local
343 &mortar,&ifacecount,&nintpoint,infree,&nheading_, in CalculiXstep()
522 NNEW(xstate,double,nstate_*mi[0]*(*ne+nintpoint)); in CalculiXstep()
523 nxstate=nstate_*mi[0]*(*ne+nintpoint); in CalculiXstep()
721 NNEW(pslavsurf,double,3*nintpoint); in CalculiXstep()
998 RENEW(xstate,double,nstate_*mi[0]*(*ne+nintpoint)); in CalculiXstep()
1408 &nintpoint,&mortar,&ifacecount,typeboun,&islavsurf, in CalculiXstep()
1479 &ntie,&istep,tieset,&nintpoint,&mortar,&ifacecount,&islavsurf, in CalculiXstep()
1791 &nintpoint,iperturb,&ntmat_,ithermal,&isolver,&nslavs,&nkon_, in CalculiXstep()
1814 &mortar,&ifacecount,&nintpoint,infree,&nheading_, in CalculiXstep()
[all …]
H A Dccx_2.18.c70 k,nzs[3],nmpc_,nload_,nforc_,istep,istat,nboun_,nintpoint, in main() local
197 &mortar,&ifacecount,&nintpoint,infree,&nheading_, in main()
370 NNEW(xstate,double,nstate_*mi[0]*(ne+nintpoint)); in main()
371 nxstate=nstate_*mi[0]*(ne+nintpoint); in main()
569 NNEW(pslavsurf,double,3*nintpoint); in main()
826 RENEW(xstate,double,nstate_*mi[0]*(ne+nintpoint)); in main()
827 for(i=nxstate;i<nstate_*mi[0]*(ne+nintpoint);i++){xstate[i]=0.;} in main()
1247 &nintpoint,&mortar,&ifacecount,typeboun,&islavsurf, in main()
1636 &nintpoint,iperturb,&ntmat_,ithermal,&isolver,&nslavs,&nkon_, in main()
1659 &mortar,&ifacecount,&nintpoint,infree,&nheading_, in main()
[all …]
H A Dreadinput.c44 nintpoint,infree[4],iheading=0,ichangesurfacebehavior=0, in readinput() local
377 &nslavs,&nkon,&mcs,&nprop,&mortar,&ifacecount,&nintpoint, in readinput()
H A Dmortar.h36 double* pslavsurf,double* pslavdual,double* pslavdualpg,ITG *nintpoint,double *slavnor,ITG *nk,
494 char *lakon,double *straight,ITG *nintpoint,
H A Dallocation.f25 & mortar,ifacecount,nintpoint,infree,nheading_,nobject_, argument
64 & ifacecount,nintpoint,mortar,infree(4),nheading_,icfd, local
1936 & nslavs,nkon_,mcs,nprop_,mortar,ifacecount,nintpoint,
H A Dcalinput.f110 & ndirbounold(*),ipoinp(2,*),inp(3,*),nintpoint,ifacecount, local
984 & t0g,t1g,nprop,ielprop,prop,mortar,nintpoint,ifacecount,
H A Delectromagnetics.c120 *itiefac=NULL,mscalmethod=0,nkon0,*nintpoint=0,num_cpus,sys_cpus, in electromagnetics() local
470 nintpoint,islavsurf,pmastsurf,tieset,ntie,&num_cpus); in electromagnetics()
H A DCalculiX.h149 ITG *ifacecount,ITG *nintpoint,ITG *infree,
243 double *cs,ITG *nintpoint,ITG *mortar,ITG *ifacecount,
312 char *tieset,ITG *nintpoint,ITG *mortar,ITG *ifacecount,
2727 ITG *nload_,ITG *nforc_,ITG *nboun_,ITG *nintpoint,ITG *iperturb,
4100 ITG *nintpoint,ITG *mortar,ITG *ifacecount,char *typeboun,
4334 ITG *nintpoint,double **pslavsurfp,double *xmastnor,double *cs,
4691 ITG *network,ITG *itiefac,ITG *ne0,ITG *nkon0,ITG *nintpoint,
4814 ITG *mortar,ITG *ifacecount,ITG *nintpoint,
4849 ITG *nintpoint,ITG *ifacecount,ITG *islavsurf,double *pslavsurf,
5483 ITG *nintpoint,ITG *koncont,double *co,double *vold,double *xo,

12