real warray,yarray,farray,f_max
      common/Ftable/warray(1000),yarray(1000),farray(1000,1000),f_max