writerec[]:=
        (WriteString[outs, iter, "      ",  e[wtlog,7,6], "   " ];
         WriteString[outs, e[pri,7,6], "      ",  e[pdat,7,6], "\n" ];
         For[i=1, i<=nc, i++,
             WriteString[outs, e[gc[[i]],7,6]];
             WriteString[outs,If [Mod[i,5]==0 || i==nc, "\n", "     "]];
            ];
        )