Lines Matching defs:readtable_1
472 subroutine readtable_1(islot,table,numdata,dx,maxdata,maxslots) subroutine
483 integer islot
484 integer numdata, maxdata, maxslots
486 real*8 table(0:maxdata,2,maxslots),dx
488 character*80 linein,filename
490 integer i,j
491 logical verbose
497 1066 format('TABLE.',i1)
501 1 continue
523 999 continue
536 101 continue