/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | mpcs.f | 21 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,lakon,ipkon,kon,nk,nk_, argument 38 & nset,nset_,nalset,nalset_,nmpc,nmpc_,mpcfree,nk,nk_,ikmpc(*), local 104 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 110 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 116 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 122 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 149 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 155 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 160 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 165 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, [all …]
|
H A D | allocation.f | 201 nmpc_=nmpc_+ibound 624 nmpc_=nmpc_+3 701 nmpc_=nmpc_+3 752 nmpc_=nmpc_+1 1309 nmpc_=nmpc_+1 1312 nmpc_=nmpc_+3 1529 nmpc_=nmpc_+3 1713 nmpc_=nmpc_+1 1716 nmpc_=nmpc_+3 1839 nmpc_=nmpc_+1 [all …]
|
H A D | gen3dtruss.f | 19 subroutine gen3dtruss(ipompc,nodempc,coefmpc,nmpc,nmpc_, argument 36 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,mi(*), local 70 if(nmpc.gt.nmpc_) then 140 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 155 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 164 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 182 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
|
H A D | gen3dboun.f | 125 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans, 459 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans, 520 if(nmpc.gt.nmpc_) then 924 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 971 if(nmpc.gt.nmpc_) then 1034 if(nmpc.gt.nmpc_) then 1085 if(nmpc.gt.nmpc_) then 1131 if(nmpc.gt.nmpc_) then 1179 if(nmpc.gt.nmpc_) then 1237 if(nmpc.gt.nmpc_) then [all …]
|
H A D | tiedcontact.c | 31 ITG *nmpc_, ITG *mi, ITG *nk,ITG *istep,ITG *ikboun, in tiedcontact() argument 135 RENEW(ipompc,ITG,*nmpc_+neq); in tiedcontact() 136 RENEW(labmpc,char,20*(*nmpc_+neq)+1); in tiedcontact() 137 RENEW(ikmpc,ITG,*nmpc_+neq); in tiedcontact() 138 RENEW(ilmpc,ITG,*nmpc_+neq); in tiedcontact() 139 RENEW(fmpc,double,*nmpc_+neq); in tiedcontact() 181 (*nmpc_)+=nmpctied; in tiedcontact()
|
H A D | gen3dmpc.f | 19 subroutine gen3dmpc(ipompc,nodempc,coefmpc,nmpc,nmpc_,mpcfree, argument 33 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,ikmpc(*), local 129 if(nmpc.gt.nmpc_) then 184 if(nmpc.gt.nmpc_) then 229 if(nmpc.gt.nmpc_) then 287 if(nmpc.gt.nmpc_) then 335 if(nmpc.gt.nmpc_) then
|
H A D | gen3dsurf.f | 20 & lakon,ne,iponor,knor,ipompc,nodempc,coefmpc,nmpc,nmpc_, argument 39 & iponor(2,*),knor(*),ipompc(*),nodempc(3,*),nmpc,nmpc_, local 90 if(nmpc.gt.nmpc_) then 144 if(nmpc.gt.nmpc_) then 219 if(nmpc.gt.nmpc_) then 264 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
|
H A D | retainednodaldofss.f | 21 & iamboun,nam,ipompc,nodempc,coefmpc,nmpc,nmpc_, argument 42 & nmpc,nmpc_,mpcfree,inotr(2,*),ikboun(*),ilboun(*),ikmpc(*), local 112 & coefmpc,nmpc,nmpc_,mpcfree,inotr,trab, 147 & coefmpc,nmpc,nmpc_,mpcfree,inotr,trab, 160 & coefmpc,nmpc,nmpc_,mpcfree,inotr,trab,
|
H A D | gen3dconnect.f | 21 & nmpc_,mpcfree,ikmpc,ilmpc,labmpc,vold,ikboun,ilboun,nboun, argument 37 & rig(*),iponor(2,*),knor(*),ipompc(*),nodempc(3,*),nmpc,nmpc_, local 114 if(nmpc.gt.nmpc_) then 169 if(nmpc.gt.nmpc_) then 228 if(nmpc.gt.nmpc_) then 281 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
|
H A D | gen3dmembrane.f | 19 subroutine gen3dmembrane(ipompc,nodempc,coefmpc,nmpc,nmpc_, argument 29 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree, local 57 if(nmpc.gt.nmpc_) then
|
H A D | mpcadd.f | 20 & coefmpc,nmpc,nmpc_,mpcfree,orab,ikboun,ikmpc,ilmpc,co,labmpc, argument 32 integer nodedep,is,ie,nboun,i,j,ipompc(*),nodempc(3,*),nmpc,nmpc_, local 59 if(nmpc.gt.nmpc_) then 121 if(nmpc.gt.nmpc_) then
|
H A D | gen3delem.f | 20 & nmpc,nmpc_,mpcfree,ikmpc,ilmpc,labmpc,ikboun,ilboun,nboun, argument 46 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,ikmpc(*), local 228 & tper,tmin,tmax,ctrl,ipompc,nodempc,coefmpc,nmpc,nmpc_, 279 & nodempc,coefmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,labmpc, 431 & nmpc_,mpcfree,ikmpc,ilmpc,labmpc,vold,ikboun,ilboun,nboun, 442 & lakon,ne,iponor,xnor,knor,ipompc,nodempc,coefmpc,nmpc,nmpc_, 452 & lakon,ne,iponor,knor,ipompc,nodempc,coefmpc,nmpc,nmpc_, 468 call gen3dmpc(ipompc,nodempc,coefmpc,nmpc,nmpc_,mpcfree, 485 & coefmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,labmpc,iponoel,inoel,
|
H A D | distributingcouplings.f | 20 & coefmpc,nmpc,nmpc_,mpcfree,nk,ikmpc,ilmpc, argument 34 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,istep,istat, local 148 if(nmpc.gt.nmpc_) then 240 if(nmpc.gt.nmpc_) then 318 if(nmpc.gt.nmpc_) then
|
H A D | rigidbodys.f | 21 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,lakon,ipkon,kon,nk,nk_, argument 38 & nset,nset_,nalset,nalset_,nmpc,nmpc_,mpcfree,nk,nk_,ikmpc(*), local 323 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_, 333 & irotnode,labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 366 & irotnode,labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 394 & irotnode,labmpc,nmpc,nmpc_,mpcfree,ikmpc,
|
H A D | boundaryfs.f | 21 & iamboun,amname,nam,ipompc,nodempc,coefmpc,nmpc,nmpc_, argument 47 & nmpc,nmpc_,mpcfree,ikboun(*),ilboun(*),ikmpc(*), local 198 & coefmpc,nmpc,nmpc_,mpcfree,trab, 255 & coefmpc,nmpc,nmpc_,mpcfree,trab, 268 & coefmpc,nmpc,nmpc_,mpcfree,trab,
|
H A D | genmpc.f | 20 & ipompc,nodempc,coefmpc,nmpc,nmpc_,labmpc,mpcfree,ikmpc, argument 35 & node,i,j,k,m,ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree, local 103 if(nmpc.gt.nmpc_) then
|
H A D | beammpc.f | 20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun, argument 34 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_,ikmpc(*), local 82 if(nmpc.gt.nmpc_) then
|
H A D | straightmpc.f | 20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun, argument 34 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_, local 78 if(nmpc.gt.nmpc_) then
|
H A D | networkmpcs.f | 20 & nmpc,nmpc_,mpcfree,nk,ikmpc,ilmpc, argument 32 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,istep,istat, local 73 if(nmpc.gt.nmpc_) then
|
H A D | readnewmesh.c | 39 ITG **nodempcp,double **coefmpcp,ITG *nmpc,ITG *nmpc_, in readnewmesh() argument 209 *nmpc_+=3*nnodestet; in readnewmesh() 210 RENEW(ipompc,ITG,*nmpc_); in readnewmesh() 211 RENEW(labmpc,char,20**nmpc_+1); in readnewmesh() 212 RENEW(ikmpc,ITG,*nmpc_); in readnewmesh() 213 RENEW(ilmpc,ITG,*nmpc_); in readnewmesh() 245 nodempc,coefmpc,nmpc,nmpc_,labmpc,mpcfree,ikmpc,ilmpc)); in readnewmesh() 312 nodempc,coefmpc,nmpc,nmpc_,labmpc,mpcfree,ikmpc,ilmpc, in readnewmesh()
|
H A D | gen3dforc.f | 21 & coefmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,labmpc,iponoel,inoel, argument 42 & nmpc,nmpc_,mpcfree,ikmpc(*),ilmpc(*),iponoel(*),inoel(3,*), local 222 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_, 498 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans, 528 if(nmpc.gt.nmpc_) then 665 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 680 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 689 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc, 738 if(nmpc.gt.nmpc_) then 835 if(nmpc.gt.nmpc_) then [all …]
|
H A D | rigidmpc.f | 20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun, 31 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_, 58 if(nmpc.gt.nmpc_) then
|
H A D | planempc.f | 20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun, 34 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_, 95 if(nmpc.gt.nmpc_) then
|
H A D | boundarys.f | 21 & iamboun,amname,nam,ipompc,nodempc,coefmpc,nmpc,nmpc_, argument 43 & nmpc,nmpc_,mpcfree,inotr(2,*),ikboun(*),ilboun(*),ikmpc(*), local 381 & coefmpc,nmpc,nmpc_,mpcfree,inotr,trab, 431 & coefmpc,nmpc,nmpc_,mpcfree,inotr,trab, 460 & coefmpc,nmpc,nmpc_,mpcfree,inotr,trab,
|
H A D | statics.f | 22 & iendset,ialset,ipompc,nodempc,coefmpc,nmpc,nmpc_,ikmpc, argument 50 & nmpc,nmpc_,ikmpc(*),ilmpc(*),mpcfree,nset,mcs,ipoinpc(0:*), local 164 & iendset,ialset,ipompc,nodempc,coefmpc,nmpc,nmpc_,ikmpc,
|