Home
last modified time | relevance | path

Searched refs:koncont (Results 1 – 24 of 24) sorted by relevance

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dinterpolateinface.f102 & list,ibin,koncont,imastop,n)
118 call updatecont2d(koncont,n,coi,cg,straight)
221 p(1)=coi(1,koncont(3,itri))
222 p(2)=coi(2,koncont(3,itri))
227 p(1)=coi(1,koncont(2,itri))
228 p(2)=coi(2,koncont(2,itri))
241 p(1)=coi(1,koncont(1,itri))
242 p(2)=coi(2,koncont(1,itri))
290 & coi(1,koncont(1,itri)),coi(2,koncont(1,itri)),z(i,1),
291 & coi(1,koncont(2,itri)),coi(2,koncont(2,itri)),z(i,2),
[all …]
H A Dtrianeighbor.f19 subroutine trianeighbor(ipe,ime,imastop,ncont,koncont, argument
30 & index1,index1old,ifreeme,ncont,koncont(4,*)
38 node1=koncont(k,j)
40 node2=koncont(1,j)
42 node2=koncont(k+1,j)
H A Dinicont.c37 ITG *itietri=NULL,*koncont=NULL,*itiefac=NULL, *islavsurf=NULL,im, in inicont() local
45 itietri=*itietrip;koncont=*koncontp;itiefac=*itiefacp;islavsurf=*islavsurfp; in inicont()
59 NNEW(koncont,ITG,4**ncont); in inicont()
64 itietri,lakon,ipkon,kon,koncont,kind1,kind2,co,nk, in inicont()
73 FORTRAN(trianeighbor,(ipe,ime,imastop,ncont,koncont, in inicont()
115 *itietrip=itietri;*koncontp=koncont; in inicont()
H A Dupdatecont2d.f19 subroutine updatecont2d(koncont,ncont,co,cg,straight) argument
25 integer koncont(3,*),ncont,i,j,k,node local
31 node=koncont(j,i)
H A Dtiedcontact.c36 ITG *itietri=NULL,*koncont=NULL,nconf,i,k,*nx=NULL,im, in tiedcontact() local
73 NNEW(koncont,ITG,4*ncont); in tiedcontact()
78 itietri,lakon,ipkon,kon,koncont,kind1,kind2,co,nk, in tiedcontact()
89 FORTRAN(trianeighbor,(ipe,ime,imastop,&ncont,koncont, in tiedcontact()
100 FORTRAN(updatecont,(koncont,&ncont,co,vold,cg,straight,mi)); in tiedcontact()
176 koncont,co,xo,yo,zo,x,y,z,nx,ny,nz,nset, in tiedcontact()
187 SFREE(itietri);SFREE(koncont);SFREE(cg);SFREE(straight); in tiedcontact()
H A Dupdatecont.f19 subroutine updatecont(koncont,ncont,co,vold,cg,straight,mi) argument
25 integer koncont(4,*),ncont,i,j,k,node,mi(*) local
31 node=koncont(j,i)
H A Dtriangucont.f20 & iendset,ialset,itietri,lakon,ipkon,kon,koncont,kind1,kind2,
40 & koncont(4,*),nk,ncontini,mortar
232 koncont(k,ncont)=node
235 koncont(4,ncont)=ialset(j)
H A Dcontact.c25 char *lakon, ITG *ipkon, ITG *kon, ITG *koncont, ITG *ne, in contact() argument
55 FORTRAN(updatecontpen,(koncont,ncont,co,vold, in contact()
81 cg,straight,ifree,koncont, in contact()
93 lakon,cg,straight,ifree,koncont,co,vold,xo,yo,zo,x,y,z,nx,ny,nz, in contact()
H A Dgentiedmpc.f21 & koncont,co,xo,yo,zo,x,y,z,nx,ny,nz,nset, argument
36 & itietri(2,ntie),ipkon(*),kon(*),koncont(4,*),node, local
306 nelem=int(koncont(4,itri)/10.d0)
307 jface=koncont(4,itri)-10*nelem
562 nelem=int(koncont(4,itri)/10.d0)
563 jface=koncont(4,itri)-10*nelem
H A Dprecontact.c26 char *lakon, ITG *ipkon, ITG *kon, ITG *koncont, ITG *ne, in precontact() argument
51 FORTRAN(updatecontpen,(koncont,ncont,co,vold, in precontact()
143 lakon,straight,nintpoint,koncont,co,vold, in precontact()
H A Dslavintpoints.f27 & koncont,co,vold,xo,yo,zo,x,y,z,nx,ny,nz,
38 & ipkon(*),kon(*),koncont(4,*),node,neigh(10),iflag,kneigh,i,
242 ifacem=koncont(4,itri)
574 if(koncont(4,ime(2,line)).eq.iactiveline(2,1)) then
599 ifacem=koncont(4,itri)
600 nelemm=int(koncont(4,itri)/10.d0)
601 jfacem=koncont(4,itri)-10*nelemm
H A Dupdatecontpen.f19 subroutine updatecontpen(koncont,ncont,co,vold,cg,straight,mi, argument
32 integer koncont(4,*),ncont,i,j,k,node,mi(*),imastnode(*), local
472 node=koncont(l,itriact)
504 node=koncont(l,itriact)
H A Dslavintmortar.f43 & nintpoint,koncont,co,vold,xo,yo,zo,x,y,z,nx,ny,nz,
60 & itietri(2,ntie),ipkon(*),kon(*),koncont(4,*),node,
347 ifacem=koncont(4,itri)
735 if(koncont(4,ime(2,line)).eq.iactiveline(2,1)) then
757 ifacem=koncont(4,itri)
758 nelemm=int(koncont(4,itri)/10.d0)
759 jfacem=koncont(4,itri)-10*nelemm
H A Dgencontelem_n2f.f21 & koncont,co,vold,xo,yo,zo,x,y,z,nx,ny,nz,ielmat, argument
39 & itietri(2,ntie),ipkon(*),kon(*),koncont(4,*),ne,node, local
459 nelem=int(koncont(4,itri)/10.d0)
460 jface=koncont(4,itri)-10*nelem
H A Dgencontelem_f2f.f20 & cg,straight,ifree,koncont,co,vold,xo,yo,zo,x,y,z,nx,ny,nz, argument
37 & itietri(2,ntie),ipkon(*),kon(*),koncont(4,*),ne,nel, local
428 ifacem=koncont(4,itri)
H A Darpack.c91 *koncont=NULL,ismallsliding=0,*itiefac=NULL,*islavsurf=NULL, in arpack() local
220 lakon,ipkon,kon,&koncont,nslavs,tietol,&ismallsliding,&itiefac, in arpack()
270 iendset,ialset,itietri,lakon,ipkon,kon,koncont,ne, in arpack()
341 ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon, in arpack()
1229 SFREE(nmastnode);SFREE(itietri);SFREE(koncont);SFREE(xnoels); in arpack()
H A Dcontactmortar.c160 char *lakon,ITG *ipkon,ITG *kon,ITG *koncont,ITG *ne, in contactmortar() argument
275 FORTRAN(updatecont,(koncont,ncont,co,vold, in contactmortar()
388 straight,&nintpoint,koncont,co,vold, in contactmortar()
H A Dlinstatic.c86 ncont=0,*itietri=NULL,*koncont=NULL,nslavs=0,ismallsliding=0, in linstatic() local
189 lakon,ipkon,kon,&koncont,&nslavs,tietol,&ismallsliding,&itiefac, in linstatic()
239 iendset,ialset,itietri,lakon,ipkon,kon,koncont,ne, in linstatic()
284 ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon, in linstatic()
1204 SFREE(nmastnode);SFREE(itietri);SFREE(koncont);SFREE(xnoels); in linstatic()
H A Dmortar.h76 char *lakon,ITG *ipkon,ITG *kon,ITG *koncont,ITG *ne,
454 ITG *itietri,double *cg,double *straight,ITG *koncont,
495 ITG *koncont,double *co,double *vold,double *xo,
567 void FORTRAN(updatecont,(ITG *koncont,ITG *ncont,double *co,double *vold,
H A Darpackcs.c98 *koncont=NULL,ismallsliding=0,*itiefac=NULL,*islavsurf=NULL, in arpackcs() local
227 lakon,ipkon,kon,&koncont,nslavs,tietol,&ismallsliding,&itiefac, in arpackcs()
277 iendset,ialset,itietri,lakon,ipkon,kon,koncont,ne, in arpackcs()
347 ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon, in arpackcs()
2533 SFREE(nmastnode);SFREE(itietri);SFREE(koncont);SFREE(xnoels); in arpackcs()
H A Dnonlingeo.c104 *nactdog=NULL,nteq,*itietri=NULL,*koncont=NULL,istrainfree=0, in nonlingeo() local
748 lakon,ipkon,kon,&koncont,nslavs,tietol,&ismallsliding,&itiefac, in nonlingeo()
1702 iendset,ialset,itietri,lakon,ipkon,kon,koncont,ne, in nonlingeo()
1791 ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon, in nonlingeo()
2179 ialset,itietri,lakon,ipkon,kon,koncont,ne,cg, in nonlingeo()
2530 itietri,cg,straight,koncont,energyini,energy,&kscale, in nonlingeo()
2538 itietri,lakon,ipkon,kon,koncont,ne,cg,straight,co,vold, in nonlingeo()
3992 SFREE(nmastnode);SFREE(itietri);SFREE(koncont);SFREE(xnoels); in nonlingeo()
H A Dpremortar.c237 ITG *itietri,double *cg,double *straight,ITG *koncont, in premortar()
H A DCalculiX.h1057 char *lakon,ITG *ipkon,ITG *kon,ITG *koncont,ITG *ne,
1562 ITG *itietri,ITG *koncont,double *cg,double *straight,
2353 ITG *ifree,ITG *koncont,double *co,double *vold,double *xo,
2366 double *cg,double *straight,ITG *ifree,ITG *koncont,
2419 ITG *koncont,double *co,double *xo,double *yo,double *zo,
4328 char *lakon,ITG *ipkon,ITG *kon,ITG *koncont,ITG *ne,
5483 ITG *nintpoint,ITG *koncont,double *co,double *vold,double *xo,
5962 ITG *koncont,ITG *ifreeme));
5967 ITG *koncont,char *kind1,char *kind2,double *co,
5999 void FORTRAN(updatecont,(ITG *koncont,ITG *ncont,double *co,double *vold,
[all …]
H A Ddyna.c90 *koncont=NULL,konl[20],imat,nope,kodem,indexe,j1,jdof,icutb=0, in dyna() local