Home
last modified time | relevance | path

Searched refs:nopep (Results 1 – 5 of 5) sorted by relevance

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dspringdamp_f2f.f88 nopep=nope+1
94 pl(k,nopep)=0.d0
95 voldl(k,nopep)=0.d0
97 pl(k,nopep)=pl(k,nopep)+shp2s(4,j)*pl(k,nopem+j)
98 voldl(k,nopep)=voldl(k,nopep)+shp2s(4,j)*voldl(k,nopem+j)
156 dal(j,j,nopep)=1.d0
188 dval(i,nopep)=xn(1)*dal(1,i,nopep)+xn(2)*dal(2,i,nopep)+
205 fpu(i,j,nopep)=-c3*xn(i)*dval(j,nopep)
228 dval(i,nopep)=xn(1)*dal(1,i,nopep)+xn(2)*dal(2,i,nopep)
243 tu(i,j,nopep)=dal(i,j,nopep)-xn(i)*dval(j,nopep)
[all …]
H A Dspringforc_f2f.f109 nopep=nope+1
112 pl(k,nopep)=0.d0
113 vl(k,nopep)=0.d0
115 pl(k,nopep)=pl(k,nopep)+shp2s(4,j)*pl(k,nopem+j)
116 vl(k,nopep)=vl(k,nopep)+shp2s(4,j)*vl(k,nopem+j)
148 al(i)=pl(i,nopep)-pproj(i)
314 alnew(i)=vl(i,nopep)
347 dfnl=dsqrt(fnl(1,nopep)**2+fnl(2,nopep)**2+
348 & fnl(3,nopep)**2)
382 fnl(i,nopep)=fnl(i,nopep)+ftrial(i)
[all …]
H A Dspringstiff_f2f.f34 & jfaces,igauss,nopem,nopes,nopep,kscale local
95 nopep=nope+1
101 pl(k,nopep)=0.d0
102 voldl(k,nopep)=0.d0
104 pl(k,nopep)=pl(k,nopep)+shp2s(4,j)*pl(k,nopem+j)
105 voldl(k,nopep)=voldl(k,nopep)+shp2s(4,j)*voldl(k,nopem+j)
138 al(i)=pl(i,nopep)-pproj(i)
250 alnew(i)=voldl(i,nopep)
H A Dspringstiff_f2f_th.f35 & nmethod,mi(*),node,noel,jfaces,igauss,nopem,nopes,nopep, local
100 nopep=nope+1
103 pl(k,nopep)=0.d0
108 pl(k,nopep)=pl(k,nopep)+shp2s(4,j)*pl(k,nopem+j)
144 al(i)=pl(i,nopep)-pproj(i)
H A Dspringforc_f2f_th.f37 & igauss,nopes,nopem,nopep,nplkcon(0:ntmat_,*) local
100 nopep=nope+1
103 pl(k,nopep)=0.d0
108 pl(k,nopep)=pl(k,nopep)+shp2s(4,j)*pl(k,nopem+j)
149 al(i)=pl(i,nopep)-pproj(i)