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)
401       real*8 table(0:maxdata,2,maxtypes)
429      &        maxdata,maxtypes)
472       subroutine readtable_1(islot,table,numdata,dx,maxdata,maxslots)  argument
484       integer numdata, maxdata, maxslots  local
486       real*8 table(0:maxdata,2,maxslots),dx
510       if (i.ge.maxdata) then