Searched refs:nen1 (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | renum.f | 64 thmin = xcyl(nen1(1),2)
65 thmax = xcyl(nen1(1),2)
67 if((x(nen1(i),1).eq.0).and.(x(nen1(i),2).eq.0)) then
70 if(thmin.gt.xcyl(nen1(i),2)) thmin = xcyl(nen1(i),2)
71 if(thmax.lt.xcyl(nen1(i),2)) thmax = xcyl(nen1(i),2)
87 error1 = abs(xcyl(nen1(i),2) - thmin)
90 nrin(j)=nen1(i)
130 xynin(i) = (radinl - xcyl(nen1(i),1))/sang
223 zmin = x(nen1(1),3)
224 zmax = x(nen1(1),3)
[all …]
|
| H A D | genscale.f | 226 xts1 = x(nen1(i),1) + plandist
232 xts3 = x(nen1(i),3)
241 & *cos(xcyl(nen1(i),2))
243 & *sin(xcyl(nen1(i),2))
245 & * (xnrml*cos(xcyl(nen1(i),2))
246 & + ynrml*sin(xcyl(nen1(i),2))))/znrml
249 & *cos(xcyl(nen1(i),2))
251 & *sin(xcyl(nen1(i),2))
253 & * (xnrml*cos(xcyl(nen1(i),2))
254 & + ynrml*sin(xcyl(nen1(i),2))))/znrml
[all …]
|
| H A D | spebc.f | 13 integer, allocatable :: ien2D(:,:), nen1(:), elcnfin(:,:) variable
28 allocate (nen1(numnp))
|
| H A D | eqn_plane.f | 47 nen1(j) = i
72 if (ienb(i,k).eq.nen1(j)) then
|