/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | checkspcmpc.f | 67 & 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 D | createbd.f | 232 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 D | catsmpcslavno.f | 49 & 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 D | inimortar.c | 181 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 D | expand_auw.f | 48 & 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 D | nortanslav.f | 32 & 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 D | tiefaccont.f | 21 & 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 D | contactmortar.c | 323 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 D | genislavactdof.f | 30 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 D | premortar.c | 336 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 D | adjustcontactnodes.f | 21 & 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 D | inicont.c | 38 *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 D | islavactive.f | 24 & mi,imastop,nslavnode,islavnode,islavact) 34 & nslavnode(*),islavnode(*),islavact(*),ifaceq(8,6), 104 do j=nslavnode(i)+1,nslavnode(i+1)
|
H A D | stressmortar.c | 183 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 D | gendualcoeffs.f | 36 & 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 D | mortar.h | 58 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 D | slavintmortar.f | 45 & 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 D | bdfill.c | 285 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 D | genfirstactif.f | 31 & 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 D | buildtquad.c | 49 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 D | precontact.c | 30 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 D | gencontelem_n2f.f | 23 & 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 D | contact.c | 32 ITG *imastop,ITG *nslavnode,ITG *islavnode,ITG *islavsurf, in contact() argument 84 imastop,nslavnode,islavnode,islavsurf,itiefac,areaslav,iponoels, in contact()
|
H A D | arpack.c | 92 *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 D | resultsprint.f | 26 & 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,
|