Searched refs:nopep (Results 1 – 5 of 5) sorted by relevance
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | springdamp_f2f.f | 88 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 D | springforc_f2f.f | 109 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 D | springstiff_f2f.f | 34 & 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 D | springstiff_f2f_th.f | 35 & 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 D | springforc_f2f_th.f | 37 & 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)
|