SZ_VOIDSTRUCT
fwrite(vp, SZ_VOIDSTRUCT, 1, Energyvoidfp);
while (fread(&Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1)
loc += SZ_VOIDSTRUCT;
while (fread(&Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1)
loc += SZ_VOIDSTRUCT;
fread(&Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp);
fwrite(&Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);
if ((loc = allocvoid()) > 20L * SZ_VOIDSTRUCT)
fread(&Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp);
fwrite(&Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);