| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | massless.c | 98 ITG **irowwp, ITG *nzsw, ITG *islavnode, ITG *nslavnode, in massless() argument
134 NNEW(auwnew, double, 3 * *nzsw); in massless()
135 NNEW(irowwnew, ITG, 3 * *nzsw); //TODO: declaring irowwnew?? typo? in massless()
138 FORTRAN(expand_auw, (auw, jqw, iroww, nslavs, nzsw, auwnew, jqwnew, irowwnew, in massless()
142 *nzsw = nzswnew; in massless()
145 RENEW(auw, double, *nzsw); in massless()
146 RENEW(iroww, ITG, *nzsw); in massless()
149 memcpy(auw, auwnew, sizeof(double) * *nzsw); // TODO: aunew auwnew?? declare in massless()
150 memcpy(iroww, irowwnew, sizeof(ITG) * *nzsw); in massless()
|
| H A D | gencontelem_n2f.f | 26 & jobnamef,mortar,auw,jqw,iroww,nzsw,imastnode,nmastnode) argument
41 & itri,ll,kflag,n,nx(*),ny(*),istep,iinc,mi(*),nzsw, local
153 if(mortar.eq.-1) nzsw=0
599 jqw(jbasis+m2)=nzsw+1
601 nzsw=nzsw+1
602 auw(nzsw)=xns(m1,m2)
603 iroww(nzsw)=jbasis+m1
611 nzsw=nzsw+1
612 auw(nzsw)=-ratio(iorder(k))*xns(m1,m2)
613 iroww(nzsw)=kbasis+m1
[all …]
|
| H A D | expand_auw.f | 46 subroutine expand_auw(auw,jqw,iroww,nslavs,nzsw,auwnew,jqwnew, argument
53 integer nzswnew,jqwnew(*),jqw(*),iroww(*),nslavs,nzsw, local
|
| H A D | contact.c | 41 ITG *jqw,ITG *iroww,ITG *nzsw){ in contact() argument
87 filab,nasym,xnoels,icutb,ne0,jobnamef,mortar,auw,jqw,iroww,nzsw, in contact()
|
| H A D | arpack.c | 99 *jqw=NULL,*iroww=NULL,nzsw, in arpack() local
349 auw,jqw,iroww,&nzsw); in arpack()
|
| H A D | linstatic.c | 92 *iroww=NULL,nzsw,*islavelinv=NULL,*irowtloc=NULL,*jqtloc=NULL,nboun2, in linstatic() local
292 &alea,auw,jqw,iroww,&nzsw); in linstatic()
|
| H A D | nonlingeo.c | 133 nzsw,mortartrafoflag=0,*nelold=NULL,*nelnew=NULL,*nkold=NULL,*nknew=NULL, in nonlingeo() local
1784 nzsw=5**nslavs; in nonlingeo()
1785 NNEW(auw,double,9*nzsw); in nonlingeo()
1787 NNEW(iroww,ITG,9*nzsw); in nonlingeo()
1800 &alea,auw,jqw,iroww,&nzsw); in nonlingeo()
2188 &ialeatoric,jobnamef,&alea,auw,jqw,iroww,&nzsw); in nonlingeo()
|
| H A D | arpackcs.c | 106 ioffrl,igreen=0,mscalmethod=0,kref,*jqw=NULL,*iroww=NULL,nzsw, in arpackcs() local
355 &alea,auw,jqw,iroww,&nzsw); in arpackcs()
|
| H A D | CalculiX.h | 1072 double *auw,ITG *jqw,ITG *iroww,ITG *nzsw);
1731 void FORTRAN(expand_auw,(double *auw,ITG *jqw,ITG *iroww,ITG *nslavs,ITG *nzsw,
2377 char *jobnamef,ITG *mortar,double *auw,ITG *jqw,ITG *iroww,ITG *nzsw,
|