/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | interpolateinface.f | 102 & 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 D | trianeighbor.f | 19 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 D | inicont.c | 37 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 D | updatecont2d.f | 19 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 D | tiedcontact.c | 36 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 D | updatecont.f | 19 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 D | triangucont.f | 20 & 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 D | contact.c | 25 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 D | gentiedmpc.f | 21 & 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 D | precontact.c | 26 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 D | slavintpoints.f | 27 & 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 D | updatecontpen.f | 19 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 D | slavintmortar.f | 43 & 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 D | gencontelem_n2f.f | 21 & 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 D | gencontelem_f2f.f | 20 & 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 D | arpack.c | 91 *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 D | contactmortar.c | 160 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 D | linstatic.c | 86 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 D | mortar.h | 76 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 D | arpackcs.c | 98 *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 D | nonlingeo.c | 104 *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 D | premortar.c | 237 ITG *itietri,double *cg,double *straight,ITG *koncont, in premortar()
|
H A D | CalculiX.h | 1057 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 D | dyna.c | 90 *koncont=NULL,konl[20],imat,nope,kodem,indexe,j1,jdof,icutb=0, in dyna() local
|