/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | nonlinmpc.f | 84 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 D | mafillem.f | 231 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 D | usermpc.f | 19 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 D | mafillsm.f | 340 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 D | normmpc.f | 19 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 D | decascade_mortar.c | 43 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 D | mafillsmas.f | 177 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 D | mafillplhs.f | 20 & 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 D | mafilldm.f | 21 & 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 D | dynresults.f | 36 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 D | cascade.c | 63 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 D | interpolcycsymcfd.c | 38 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 D | pretensionsections.f | 382 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 D | couplings.f | 360 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 D | gen3dmpc.f | 39 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 D | gen3dtruss.f | 19 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 D | applympc.f | 19 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 D | knotmpc.f | 19 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 D | applybounv.f | 20 & 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 D | gen3dsurf.f | 20 & 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 D | modifympc.f | 20 & 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 D | mafillcorio.f | 21 & 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 D | gen3dconnect.f | 20 & 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 D | rigidmpc.f | 19 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 D | gen3dboun.f | 1049 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 …]
|