Searched refs:islot (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | dtn.f | 286 subroutine readtable_2(islot,table,numdata,dx,maxdata,maxslots) argument
297 integer islot local
312 write(filename,1066) islot
342 table(1,i,j,islot) = x1*1.d-0
343 table(2,i,j,islot) = x2*1.d-0
344 table(3,i,j,islot) = y1*1.d-0
345 table(4,i,j,islot) = y2*1.d-0
354 numdata(1,islot) = I
355 numdata(2,islot) = j+1
357 dx(1,islot) = table(1,2,1,islot) - table(1,1,1,islot)
[all …]
|