Searched refs:maxdata (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | dtn.f | 177 integer maxdata,maxtypes local
178 parameter(maxdata=100,maxtypes=5)
184 real*8 table(4,0:maxdata,0:maxdata,maxtypes)
211 & maxdata,maxtypes)
286 subroutine readtable_2(islot,table,numdata,dx,maxdata,maxslots) argument
298 integer maxslots,numdata(2,maxslots), maxdata local
300 real*8 table(4,0:maxdata,0:maxdata,maxslots), dx(2,maxslots)
327 if (i.gt.maxdata**2+maxdata+1) then
396 integer maxdata,maxtypes local
397 parameter(maxdata=200,maxtypes=2)
[all …]
|