printerr[hfile_, i_]:=(
      WriteString[out,"error in file ", hfile, "function ", i, "\n"];
      Quit[1];)

rdapmrec[h_, i_, j_, hfile_]:=
(Check[jf=Read[h, Number], printerr[hfile, i] ];
 If[jf==EndOfFile,printerr[hfile, i] ];
 Check[nuse=Read[h, Number],printerr[hfile, i] ];
 If[nuse==EndOfFile,printerr[hfile, i] ];
 Check[g[[j,i]]=Read[h, Number],printerr[hfile, i] ];
 If[g[[j,i]]==EndOfFile,printerr[hfile, i] ];
 Check[sdg=Read[h, Number],printerr[hfile, i] ];
 If[sdg==EndOfFile,printerr[hfile, i] ];
 Check[sdnum1[[j,i]]=Read[h, Number],printerr[hfile, i] ];
 If[sdnum1[[j,i]]==EndOfFile,printerr[hfile, i] ];
 Check[sdnum2[[j,i]]=Read[h, Number],printerr[hfile, i] ];
 If[sdnum2[[j,i]]==EndOfFile,printerr[hfile, i] ];
 Check[sdnum3[[j,i]]=Read[h, Number],printerr[hfile, i] ];
 If[sdnum3[[j,i]]==EndOfFile,printerr[hfile, i] ];
 Check[sdnum4[[j,i]]=Read[h, Number],printerr[hfile, i] ];
 If[sdnum4[[j,i]]==EndOfFile,printerr[hfile, i] ];
)