Searched refs:maxtypes (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)
188 logical readfile(maxtypes)
190 data (readfile(i),i=1,maxtypes) / maxtypes*.false./
192 real*8 dx(2,maxtypes)
193 integer numdata(2,maxtypes)
211 & maxdata,maxtypes)
396 integer maxdata,maxtypes local
397 parameter(maxdata=200,maxtypes=2)
[all …]
|