#! /usr/bin/gawk -f
# Last edited on 2000-01-30 18:15:12 by stolfi

# To be executed with "-f factor-table.gawk"

BEGIN {
  m = 7;
  n = 4;
  split("", a);
  split("", u); for (i=1; i<=m; i++) { u[i] = 0; }
  split("", v); for (j=1; j<=n; j++) { v[j] = 0; }
  split("", d);
  
  for (i=1; i<=m; i++) {  for (j=1; j<=n; j++) { a[i,j] = (i+1)*(j+3)/100; } }
  a[2,3] *= 1.20;
  
  fctb_factor(a,u,v,0.0001);

  exit(0);
}