############################################################################
## AUTHOR:           C. Rhodes
## DATE:             Fri Jan 22 15:05:39 EST 1993
## STATUS:           not rhobust
############################################################################
## checks if the groups are complete. If yes then prints "ok" else prints
## "---------------- ERROR -------------------"
############################################################################

set workspace = 6000000;
library testcomplete;

library gps3;
for i =2 to length(gps) do
  testcomplete(gps[i],1;G);
end;

library gps9;
for i =2 to length(gps) do
  testcomplete(gps[i],1;G);
end;

library gps27;
for i =2 to length(gps) do
  testcomplete(gps[i],1;G);
end;

library gps81;
for i =2 to length(gps) do
  testcomplete(gps[i],1;G);
end;

library gps243;
for i =2 to length(gps) do
  testcomplete(gps[i],1;G);
end;

library gps729;
for i =2 to length(gps) do
  testcomplete(gps[i],1;G);
end;


