/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | treatmasterface_mortar.f | 52 & 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 D | treatmasterface.f | 25 & 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 D | slavintpoints.f | 26 & 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 D | slavintmortar.f | 59 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 D | restartshort.f | 24 & 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 D | contactmortar.c | 388 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 D | remastruct.c | 36 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 D | arpack.c | 148 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 D | skip.f | 24 & 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 D | restartread.f | 37 & 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 D | precontact.c | 32 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 D | restartwrite.f | 37 & 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 D | linstatic.c | 236 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 D | restarts.f | 38 & 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 D | arpackcs.c | 164 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 D | ini_cal.c | 28 ITG *nload_,ITG *nforc_,ITG *nboun_,ITG *nintpoint,ITG *iperturb, in ini_cal() argument 159 *nintpoint=0; in ini_cal()
|
H A D | nonlingeo.c | 291 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 D | CalculiXstep.c | 198 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 D | ccx_2.18.c | 70 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 D | readinput.c | 44 nintpoint,infree[4],iheading=0,ichangesurfacebehavior=0, in readinput() local 377 &nslavs,&nkon,&mcs,&nprop,&mortar,&ifacecount,&nintpoint, in readinput()
|
H A D | mortar.h | 36 double* pslavsurf,double* pslavdual,double* pslavdualpg,ITG *nintpoint,double *slavnor,ITG *nk, 494 char *lakon,double *straight,ITG *nintpoint,
|
H A D | allocation.f | 25 & 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 D | calinput.f | 110 & ndirbounold(*),ipoinp(2,*),inp(3,*),nintpoint,ifacecount, local 984 & t0g,t1g,nprop,ielprop,prop,mortar,nintpoint,ifacecount,
|
H A D | electromagnetics.c | 120 *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 D | CalculiX.h | 149 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,
|