Searched refs:nrint (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | renum.f | 103 allocate (nrint(nfin))
118 nrint(j)=nrin(itmp)
138 xyn(i) = (radcyl - xcyl(nrint(i),1))/sang
152 xts1 = x(nrint(jj),1) !*cos(xcyl(nrint(jj),2)+tolerence)
153 xts2 = x(nrint(jj),2) !*sin(xcyl(nrint(jj),2)+tolerence)
154 xts3 = x(nrint(jj),3) + plandist
159 imax(jj) = (thmax-thmin)*xcyl(nrint(jj),1)/ds
161 if ( xcyl(nrint(jj),1) .eq. radcyl) then
162 xts1 = (xcyl(nrint(jj),1)-tolerence)
164 xts2 = (xcyl(nrint(jj),1)-tolerence)
[all …]
|
| H A D | genscale.f | 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)) /
185 & (xcyl(nrint(j),1) - xcyl(nrint(j+1),1))
|
| H A D | spebc.f | 14 integer, allocatable :: nrint(:), imax(:) variable
|