Searched refs:numdata (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | dtn.f | 193 integer numdata(2,maxtypes) local
195 save numdata
210 call readtable_2(itype,table,numdata,dx,
219 & x .lt. table(1,numdata(1,itype)-1,0,itype) ) then
223 & table(1,numdata(1,itype)-1,0,itype), ' ] ',
224 & numdata(1,itype)-1
230 & y .lt. table(2,0,numdata(2,itype)-1,itype) ) then
234 & table(2,0,numdata(2,itype)-1,itype), ' ] ',
235 & numdata(2,itype)-1
254 if(i .ge. numdata(1,itype)) then
[all …]
|