Home
last modified time | relevance | path

Searched refs:coefmpc (Results 1 – 25 of 168) sorted by relevance

1234567

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dnonlinmpc.f84 coefmpc(index)=1.d0
88 coefmpc(index)=-1.d0
184 coefmpc(index)=1.d0
544 coefmpc(index)=c2
547 coefmpc(index)=c3
550 coefmpc(index)=c5
553 coefmpc(index)=c6
556 coefmpc(index)=c4
559 coefmpc(index)=c1
788 coefmpc(index)=cj
[all …]
H A Dmafillem.f231 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
298 value=coefmpc(index1)*coefmpc(index2)*
299 & s(jj,ll)/coefmpc(ist)/coefmpc(ist)
305 valu2=coefmpc(index1)*coefmpc(index2)*
306 & sm(jj,ll)/coefmpc(ist)/coefmpc(ist)
341 value=coefmpc(index1)*coefmpc(index2)*
342 & s(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
515 value=-coefmpc(index)*st(jj,ll)/coefmpc(ist)
582 value=coefmpc(index1)*coefmpc(index2)*
583 & st(jj,ll)/coefmpc(ist)/coefmpc(ist)
[all …]
H A Dusermpc.f19 subroutine usermpc(ipompc,nodempc,coefmpc, argument
110 coefmpc(mpcfree)=0.d0
128 coefmpc(mpcfree)=1.d0
277 coefmpc(index1)=coefmpc(index1)+c10
290 coefmpc(index)=-nkn
377 amax=dabs(coefmpc(index))
420 coefmpc(index)=0
473 xcoef=coefmpc(indexold(j))
476 coefmpc(indexold(j))=coefmpc(indexnew(j))
479 coefmpc(indexnew(j))=xcoef
[all …]
H A Dmafillsm.f340 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
397 value=coefmpc(index1)*coefmpc(index2)*
398 & s(jj,ll)/coefmpc(ist)/coefmpc(ist)
404 valu2=coefmpc(index1)*coefmpc(index2)*
440 value=coefmpc(index1)*coefmpc(index2)*
441 & s(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
448 valu2=coefmpc(index1)*coefmpc(index2)*
610 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
667 value=coefmpc(index1)*coefmpc(index2)*
668 & s(jj,ll)/coefmpc(ist)/coefmpc(ist)
[all …]
H A Dnormmpc.f19 subroutine normmpc(nmpc,ipompc,nodempc,coefmpc,inomat,coefmodmpc, argument
30 real*8 coefmpc(*),size,coefmodmpc(*) local
44 size=coefmpc(index)**2
45 coefmodmpc(index)=coefmpc(index)
62 coefmodmpc(index)=coefmpc(index)
64 size=size+coefmpc(index)**2
74 coefmpc(index)=coefmpc(index)/size
H A Ddecascade_mortar.c43 double coef,*coefmpc=NULL; in decascade_mortar() local
45 nodempc=*nodempcp; coefmpc=*coefmpcp; in decascade_mortar()
61 coef=coefmpc[index-1]; in decascade_mortar()
69 coef=-coef/coefmpc[indexnew-1]; in decascade_mortar()
72 coefmpc[index-1]=coef*coefmpc[indexnew-1]; in decascade_mortar()
83 RENEW(coefmpc,double,*memmpc_); in decascade_mortar()
120 coefmpc[index1-1]+=coefmpc[index2-1]; in decascade_mortar()
140 *nodempcp=nodempc; *coefmpcp=coefmpc; in decascade_mortar()
H A Dmafillsmas.f177 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
203 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
250 value=coefmpc(index1)*coefmpc(index2)*
251 & s(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
286 value=coefmpc(index1)*coefmpc(index2)*
287 & s(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
375 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
448 value=coefmpc(index1)*coefmpc(index2)*
449 & s(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
484 value=coefmpc(index1)*coefmpc(index2)*
[all …]
H A Dmafillplhs.f20 & ipompc,nodempc,coefmpc,nmpc,nactdoh,icolp,jqp, argument
40 real*8 coefmpc(*),sm(8,8),adbp(*),aubp(*),var(*),value local
121 value=-coefmpc(index)*sm(jj,ll)/
122 & coefmpc(ist)
158 value=coefmpc(index1)*coefmpc(index2)*
159 & sm(jj,ll)/coefmpc(ist)/coefmpc(ist)
192 value=coefmpc(index1)*coefmpc(index2)*
193 & sm(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
H A Dmafilldm.f21 & ipompc,nodempc,coefmpc,nmpc,nodeforc,ndirforc,xforc, argument
218 & coefmpc(ist)
265 value=coefmpc(index1)*coefmpc(index2)*
266 & s(jj,ll)/coefmpc(ist)/coefmpc(ist)
302 value=coefmpc(index1)*coefmpc(index2)*
374 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
405 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
464 value=coefmpc(index1)*coefmpc(index2)*
465 & s(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
501 value=coefmpc(index1)*coefmpc(index2)*
[all …]
H A Ddynresults.f36 real*8 v(0:mi(2),*),vold(0:mi(2),*),xboun(*),coefmpc(*), local
108 fixed_disp=fixed_disp-coefmpc(index)*
111 fixed_disp=fixed_disp-coefmpc(index)*
119 fixed_disp=fixed_disp/coefmpc(ist)
174 fixed_disp=fixed_disp-coefmpc(index)*
180 veold(ndir,node)=fixed_disp/coefmpc(ist)
228 fixed_disp=fixed_disp-coefmpc(index)*
234 veold(ndir,node)=fixed_disp/coefmpc(ist)
311 fixed_disp=fixed_disp/coefmpc(ist)
374 veold(ndir,node)=fixed_disp/coefmpc(ist)
[all …]
H A Dcascade.c63 double coef,*coefmpc=NULL; in cascade() local
66 coefmpc=*coefmpcp; in cascade()
212 coefmpc[index1-1]+=coefmpc[index2-1]; in cascade()
245 coef=coefmpc[index-1]; in cascade()
252 coef=-coef/coefmpc[indexnew-1]; in cascade()
256 coefmpc[index-1]=coef*coefmpc[indexnew-1]; in cascade()
270 RENEW(coefmpc,double,*memmpc_); in cascade()
284 coefmpc[index-1]=0.; in cascade()
307 coefmpc[index1-1]+=coefmpc[index2-1]; in cascade()
333 if(fabs(coefmpc[index1-1])<1.e-10){ in cascade()
[all …]
H A Dinterpolcycsymcfd.c38 double *coefmpc=NULL,trabl[7],a[9]; in interpolcycsymcfd() local
90 coefmpc[*mpcfree-1]=1.; in interpolcycsymcfd()
100 RENEW(coefmpc,double,*memmpc_); in interpolcycsymcfd()
111 coefmpc[*mpcfree-1]=-1.; in interpolcycsymcfd()
121 RENEW(coefmpc,double,*memmpc_); in interpolcycsymcfd()
176 RENEW(coefmpc,double,*memmpc_); in interpolcycsymcfd()
204 RENEW(coefmpc,double,*memmpc_); in interpolcycsymcfd()
253 coefmpc[*mpcfree-1]=1.; in interpolcycsymcfd()
263 RENEW(coefmpc,double,*memmpc_); in interpolcycsymcfd()
274 coefmpc[*mpcfree-1]=-1.; in interpolcycsymcfd()
[all …]
H A Dpretensionsections.f382 coefmpc(mpcfree)=1.d0
687 coefmpc(mpcfree)=-xt(idir)
698 coefmpc(mpcfree)=-xt(idir)
709 coefmpc(mpcfree)=-xt(idir)
719 coefmpc(mpcfree)=xt(idir)
730 coefmpc(mpcfree)=xt(idir)
741 coefmpc(mpcfree)=xt(idir)
1120 coefmpc(mpcfree)=1.d0
1125 coefmpc(mpcfree)=-1.d0
1317 coefmpc(mpcfree)=area
[all …]
H A Dcouplings.f360 coefmpc(mpcfree)=1.d0
365 coefmpc(mpcfree)=-1.d0
753 coefmpc(mpcfree)=1.d0
813 coefmpc(mpcfree)=1.d0
818 coefmpc(mpcfree)=-npt
1020 coefmpc(mpcfree)=0.d0
1025 coefmpc(mpcfree)=1.d0
1116 coefmpc(index1)=coefmpc(index1)+c10
1136 coefmpc(index2)=-npt
1296 coefmpc(indexold(j))=coefmpc(indexnew(j))
[all …]
H A Dgen3dmpc.f39 real*8 coefmpc(*),xnor(*) local
144 coefmpc(mpcfree)=1.d0
153 coefmpc(mpcfree)=1.d0
162 coefmpc(mpcfree)=-2.d0
199 coefmpc(mpcfree)=1.d0
208 coefmpc(mpcfree)=-1.d0
244 coefmpc(mpcfree)=1.d0
254 coefmpc(mpcfree)=1.d0
264 coefmpc(mpcfree)=-4.d0
350 coefmpc(mpcfree)=1.d0
[all …]
H A Dgen3dtruss.f19 subroutine gen3dtruss(ipompc,nodempc,coefmpc,nmpc,nmpc_, argument
43 real*8 coefmpc(*),xboun(*),xta(3,100),co(3,*),trab(7,*), local
85 coefmpc(mpcfree)=1.d0
95 coefmpc(mpcfree)=1.d0
110 coefmpc(mpcfree)=0.d0
112 coefmpc(mpcfree)=-4.d0
139 call usermpc(ipompc,nodempc,coefmpc,
154 call usermpc(ipompc,nodempc,coefmpc,
163 call usermpc(ipompc,nodempc,coefmpc,
181 & iamplitude,nam,ipompc,nodempc,coefmpc,
H A Dapplympc.f19 subroutine applympc(nface,ielfa,is,ie,ifabou,ipompc,vfa,coefmpc, argument
32 real*8 coefmpc(*),denominator,vfa(0:7,*),sum,xbounact(*), local
56 sum=sum+coefmpc(index)*xbounact(-nodempc(1,index))
64 sum=sum+coefmpc(index)
66 coefnorm=coefnorm+coefmpc(index)**2
83 & sum*coefmpc(index)/coefnorm
H A Dknotmpc.f19 subroutine knotmpc(ipompc,nodempc,coefmpc,irefnode,irotnode, argument
39 real*8 coefmpc(*),co(3,*),xboun(*),e(3,3,3),dc(3,3,3),s(3,3),
215 coefmpc(mpcfree)=1.d0
222 coefmpc(mpcfree)=-1.d0
230 coefmpc(mpcfree)=co(j,irefnode)-co(j,inode)
262 coefmpc(mpcfree)=1.d0
323 coefmpc(mpcfree)=1.d0
330 coefmpc(mpcfree)=-1.d0
340 coefmpc(mpcfree)=0.d0
345 coefmpc(mpcfree)=u2(j,1)*(co(1,irefnode)-co(1,inode))+
[all …]
H A Dapplybounv.f20 & compressible,nmpc,nodempc,ipompc,coefmpc,inomat, argument
37 real*8 xnorm,coefmodmpc(*),sum,v(0:mi(2),*),coefmpc(*),residu, local
84 sum=sum+coefmpc(index)*v(ndiri,nodei)
91 v(ndir,node)=-sum/coefmpc(ist)
115 residu=coefmpc(index)*v(ndir,node)
123 residu=residu+coefmpc(index)*v(ndiri,nodei)
H A Dgen3dsurf.f20 & lakon,ne,iponor,knor,ipompc,nodempc,coefmpc,nmpc,nmpc_, argument
47 real*8 coefmpc(*),trab(7,*),co(3,*),val,xboun(*),vold(0:mi(2),*) local
105 coefmpc(mpcfree)=1.d0
114 coefmpc(mpcfree)=1.d0
123 coefmpc(mpcfree)=-2.d0
159 coefmpc(mpcfree)=1.d0
169 coefmpc(mpcfree)=1.d0
179 coefmpc(mpcfree)=-4.d0
234 coefmpc(mpcfree)=1.d0
243 coefmpc(mpcfree)=-1.d0
[all …]
H A Dmodifympc.f20 & integerglob,ipompc,nodempc,coefmpc,nmpc,nmpc_,labmpc,mpcfree,
49 & coefmpc(*),depcoef,dist,xopt,coef1,coefmpcref(*)
68 coefmpc(i)=coefmpcref(i)
80 if(coefmpc(index).eq.1.d0) cycle
87 coef1=coefmpc(index)
100 if(coefmpc(index).eq.1.d0) then
105 coefmpc(index1)=coefmpc(index)
121 coefmpc(index)=coef1
152 au(nzs)=coefmpc(index)
311 coefmpc(index)=depcoef
[all …]
H A Dmafillcorio.f21 & ipompc,nodempc,coefmpc,nmpc,nodeforc,ndirforc,xforc, argument
51 real*8 co(3,*),xboun(*),coefmpc(*),xforc(*),xload(2,*),p1(3), local
192 value=-coefmpc(index)*s(jj,ll)/coefmpc(ist)
238 value=coefmpc(index1)*coefmpc(index2)*
239 & s(jj,ll)/coefmpc(ist)/coefmpc(ist)
274 value=coefmpc(index1)*coefmpc(index2)*
275 & s(jj,ll)/coefmpc(ist1)/coefmpc(ist2)
H A Dgen3dconnect.f20 & iponoelmax,rig,iponor,xnor,knor,ipompc,nodempc,coefmpc,nmpc, argument
44 real*8 xnor(*),coefmpc(*),vold(0:mi(2),*),val,xboun(*), local
129 coefmpc(mpcfree)=1.d0
138 coefmpc(mpcfree)=1.d0
147 coefmpc(mpcfree)=-2.d0
184 coefmpc(mpcfree)=1.d0
194 coefmpc(mpcfree)=1.d0
204 coefmpc(mpcfree)=-4.d0
243 coefmpc(mpcfree)=1.d0
252 coefmpc(mpcfree)=-1.d0
[all …]
H A Drigidmpc.f19 subroutine rigidmpc(ipompc,nodempc,coefmpc,irefnode,irotnode, argument
37 real*8 coefmpc(*),co(3,*),e(3,3,3)
75 coefmpc(mpcfree)=1.d0
82 coefmpc(mpcfree)=-1.d0
89 coefmpc(mpcfree)=e(j,1,1)*(co(1,irefnode)-co(1,node))+
95 coefmpc(mpcfree)=e(j,2,1)*(co(1,irefnode)-co(1,node))+
101 coefmpc(mpcfree)=e(j,3,1)*(co(1,irefnode)-co(1,node))+
107 coefmpc(mpcfree)=1.d0
H A Dgen3dboun.f1049 coefmpc(mpcfree)=1.d0
1058 coefmpc(mpcfree)=1.d0
1067 coefmpc(mpcfree)=-2.d0
1100 coefmpc(mpcfree)=1.d0
1109 coefmpc(mpcfree)=-1.d0
1146 coefmpc(mpcfree)=1.d0
1194 coefmpc(mpcfree)=1.d0
1204 coefmpc(mpcfree)=1.d0
1214 coefmpc(mpcfree)=-xnode
1299 coefmpc(mpcfree)=1.d0
[all …]

1234567