IF (((NDum) MOD 4)0) THEN
BLOCKWRITE(OutFile,Pixel,SIZEOF(Pixel));
IF (((NDum + 1) MOD 4)0) THEN
BLOCKWRITE(OutFile,Pixel,SIZEOF(Pixel));
IF (((NDum + 2) MOD 4)0) THEN
BLOCKWRITE(OutFile,Pixel,SIZEOF(Pixel));
1. If NDum = 4k (e.g. 12=4*3), you write two times; if NDum
IF (((NDum) MOD 4)0) THEN
BLOCKWRITE(OutFile,Pixel,SIZEOF(Pixel));
IF (((NDum + 1) MOD 4)0) THEN
BLOCKWRITE(OutFile,Pixel,SIZEOF(Pixel));
IF (((NDum + 2) MOD 4)0) THEN
BLOCKWRITE(OutFile,Pixel,SIZEOF(Pixel));
1. If NDum = 4k (e.g. 12=4*3), you write two times;