% test_driver_ge.m  Gobberts driver_ge.m
function test_driver_ge
  fid=fopen('test_driver_ge_m.out','w');  
  N=4;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=8;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=16;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=32;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=64;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=128;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=256;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=512;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  N=1024;
  fprintf(fid,'test_driver_ge running, N=%d \n', N);
  driver_ge(N,fid);
  fprintf(fid,'driver_ge ran, N=%d \n\n', N);

  fprintf(fid,'test_driver_ge finished \n');
end % test_driver_ge
