% test_driver_cg.m  Gobberts driver_cg.m
function test_driver_cg
  fid=fopen('test_driver_cg_m.out','w');  
  N=4;
  fprintf(fid,'test_driver_cg running, N=%d \n', N);
  driver_cg(N,fid);
  fprintf(fid,'driver_cg ran, N=%d \n\n', N);

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

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

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

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

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

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

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

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

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