common/tables/tvals(  3), table(  3,445)
      integer tvals
      character*15 table
      integer MAX
      parameter(MAX=  3)