Searched refs:xcyl (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | renum.f | 46 xcyl(:,1) = sqrt(x(:,1)*x(:,1) + x(:,2)*x(:,2))
54 xcyl(i,2) = atan2(x(i,2),x(i,1))
57 xcyl(:,3) = x(:,3)
64 thmin = xcyl(nen1(1),2)
65 thmax = xcyl(nen1(1),2)
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)
77 xcyl(nula(i),2) = thmin
87 error1 = abs(xcyl(nen1(i),2) - thmin)
96 xrtmp(i) = xcyl(nrin(i),1)
[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))
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))
[all …]
|
| H A D | spebc.f | 10 real*8, allocatable :: xcyl(:,:),xintl(:,:,:),xsinfin(:,:,:) variable
27 allocate (xcyl(numnp,nsd))
|