Searched refs:ien2D (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genscale.f | 57 yintl(i,:,j+1) = y(ien2D(i,:),j)
59 yintl(i,:,1) = y(ien2D(i,:),4)
62 yintl(i,:,j) = y(ien2D(i,:),j)
171 if ((x(ien2D(i,k),2).ge.xyn(j)) .and.
172 & (x(ien2D(i,k),2).le.(xyn(j+1)+0.000001))) then
173 tmp = (x(ien2D(i,k),2) - xyn(j)) /
182 if ((xcyl(ien2D(i,k),1).ge.xcyl(nrint(j+1),1)) .and.
183 & (xcyl(ien2D(i,k),1).le.xcyl(nrint(j),1))) then
184 tmp = (xcyl(ien2D(i,k),1) - xcyl(nrint(j+1),1)) /
|
| H A D | eqn_plane.f | 137 allocate (ien2D(itmp,4))
162 ien2D(nelint,:) = ien(i,:)
180 xintl(i,:,1) = x(ien2D(i,:),1)
181 xintl(i,:,2) = x(ien2D(i,:),2)
182 xintl(i,:,3) = x(ien2D(i,:),3)
|
| H A D | spebc.f | 13 integer, allocatable :: ien2D(:,:), nen1(:), elcnfin(:,:) variable
|