Searched defs:readtable_2 (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) subroutine
297 integer islot
298 integer maxslots,numdata(2,maxslots), maxdata
300 real*8 table(4,0:maxdata,0:maxdata,maxslots), dx(2,maxslots)
301 real*8 x1,x2,y1,y2,x2old
303 character*250 linein,filename
305 integer i,j,k
306 logical verbose
313 1066 format('TABLE.',i1)
319 1 continue
[all …]
|