H A D | attach_3d.f | 19 subroutine attach_3d(pneigh,pnode,nterms,ratio,dist,xil,etl,zel, argument 32 & xil,etl,zel,dx(3),al,dummy local 162 zel=ze(0,0,0) 166 zel=(ze(0,0,0)+1.d0)/2.d0 169 dx(3)=zel 173 al=dx(3)/(xil+etl+zel) 176 zel=al*zel 186 zel=ze(0,0,0)
|