Lines Matching refs:numdata
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
255 i = numdata(1,itype)-2
259 if(j .ge. numdata(2,itype)) then
260 j = numdata(2,itype)-2
286 subroutine readtable_2(islot,table,numdata,dx,maxdata,maxslots) argument
298 integer maxslots,numdata(2,maxslots), maxdata local
354 numdata(1,islot) = I
355 numdata(2,islot) = j+1
371 do i=0,numdata(1,islot)-1
372 do j=0,numdata(2,islot)-1
411 integer numdata(maxtypes) local
412 save numdata
428 call readtable_1(itype,table,numdata(itype),dx(itype),
455 elseif( conc_BC .gt. table(numdata(itype),1,itype)) then
456 i = numdata(itype)
472 subroutine readtable_1(islot,table,numdata,dx,maxdata,maxslots) argument
484 integer numdata, maxdata, maxslots local
525 numdata = i
529 write(*,*) 'there are ',numdata,' flux data points'