| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | springstiff_f2f_th.f | 38 real*8 xl(3,19),pproj(3),shp2m(7,9),ak(5), local
121 call shape8q(xi,et,pl,xm,xs2,shp2m,iflag)
123 call shape4q(xi,et,pl,xm,xs2,shp2m,iflag)
125 call shape6tri(xi,et,pl,xm,xs2,shp2m,iflag)
129 call shape3tri(xi,et,pl,xm,xs2,shp2m,iflag)
138 pproj(i)=pproj(i)+shp2m(4,j)*pl(i,j)
140 t1lm=t1lm+shp2m(4,j)*voldl(0,j)
265 s(i,j)=shp2m(4,i)*shp2m(4,j)*constant
271 s(i,nopem+j)=-shp2m(4,i)*shp2s(4,j)*constant
|
| H A D | springdamp_f2f.f | 32 real*8 xl(3,19),elas(21),pproj(3),shp2m(7,9),al(3),s(60,60), local
108 call shape8q(xi,et,pl,xm,xs2,shp2m,iflag)
110 call shape4q(xi,et,pl,xm,xs2,shp2m,iflag)
112 call shape6tri(xi,et,pl,xm,xs2,shp2m,iflag)
114 call shape3tri(xi,et,pl,xm,xs2,shp2m,iflag)
123 pproj(i)=pproj(i)+shp2m(4,j)*pl(i,j)
152 dal(j,j,i)=-shp2m(4,i)
271 s(i+(k-1)*3,j+(l-1)*3)=-shp2m(4,k)*fpu(i,j,l)
297 & shp2m(4,k)*fpu(i,j,nopep)
|
| H A D | frictionheating.f | 41 & xsj2m(3),xs2m(3,7),shp2m(7,9),xsj2s(3),xs2s(3,7),shp2s(7,9), local
262 call shape8q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
264 call shape4q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
266 call shape6tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
268 call shape3tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
274 velm(k)=velm(k)+shp2m(4,j)*
325 call shape8q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
327 call shape4q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
329 call shape6tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
331 call shape3tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
|
| H A D | springstiff_f2f.f | 36 real*8 xl(3,19),elas(21),pproj(3),val,shp2m(7,9), local
115 call shape8q(xi,et,pl,xm,xs2,shp2m,iflag)
117 call shape4q(xi,et,pl,xm,xs2,shp2m,iflag)
119 call shape6tri(xi,et,pl,xm,xs2,shp2m,iflag)
121 call shape3tri(xi,et,pl,xm,xs2,shp2m,iflag)
130 pproj(i)=pproj(i)+shp2m(4,j)*pl(i,j)
252 alnew(i)=alnew(i)-shp2m(4,j)*voldl(i,j)
388 & shp2m(4,k)*shp2m(4,l)*fpu(i,j)
414 & shp2m(4,k)*fpu(i,j)
427 & -shp2s(4,k-nopem)*shp2m(4,l)*fpu(i,j)
|
| H A D | springforc_f2f_th.f | 45 & reltime,weight,xsj2m(3),xs2m(3,7),shp2m(7,9), local
124 call shape8q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
126 call shape4q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
128 call shape6tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
132 call shape3tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
141 pproj(i)=pproj(i)+shp2m(4,j)*pl(i,j)
143 t1lm=t1lm+shp2m(4,j)*vl(0,j)
273 tnl(j)=shp2m(4,j)*constant
|
| H A D | springforc_f2f.f | 45 & dt1,dte,alnew(3),reltime,weight,xsj2m(3),xs2m(3,7),shp2m(7,9), local
129 call shape8q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
131 call shape4q(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
133 call shape6tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
135 call shape3tri(xi,et,pl,xsj2m,xs2m,shp2m,iflag)
141 pproj(i)=pproj(i)+shp2m(4,j)*pl(i,j)
316 alnew(i)=alnew(i)-shp2m(4,j)*vl(i,j)
430 fnl(i,j)=-shp2m(4,j)*fnl(i,nopep)
|
| H A D | createbd.f | 77 & shp2s(7,8),xs2s(3,7),xl2m(3,8),xsj2m(3),shp2m(7,8),xs2m(3,7), local
206 call shape8q(xim,etm,xl2m,xsj2m,xs2m,shp2m,iflag)
208 call shape4q(xim,etm,xl2m,xsj2m,xs2m,shp2m,iflag)
210 call shape6tri(xim,etm,xl2m,xsj2m,xs2m,shp2m,iflag)
212 call shape3tri(xim,etm,xl2m,xsj2m,xs2m,shp2m,iflag)
280 contribution=shp2s(4,locs)*shp2m(4,locm)
|
| H A D | gendualcoeffs.f | 62 & contr(8*8),xs2m(3,7),xsj2m(3),shp2m(7,8),etm,xim, local
715 & shp2m,iflag)
717 call shape4q(xim,etm,xl2s,xsj2m,xs2m,shp2m,
721 & xs2m,shp2m,iflag)
725 call shape4q(xim,etm,xl2s,xsj2m,xs2m,shp2m,iflag)
729 & xs2m,shp2m,iflag)
732 & xs2m,shp2m,iflag)
735 call shape3tri(xim,etm,xl2s,xsj2m,xs2m,shp2m,iflag)
753 contribution=shp2s(4,locs)*shp2m(4,locm)
|