> ipad=(Maxwidth-iwidth)-((Maxwidth-iwidth)/4)*4 Oops, ipad=(Maxwidth-iwidth)*3-((Maxwidth-iwidth)*3/4)*4 Maxwidth has to be divisible by 4. On writing the .bmp bitmap out again use: do ip=1,ipad irec=irec+1 write(2,rec=irec) char(0) end do

...assume:byterecl" integer Maxwidth,Maxheight,irec,iwidth,iheight,i,j,ipad parameter(Maxwidth=3220,Maxheight=2415) character header(54),ch integer...))+256*ichar(header(22)))) print*,'iheight,iwidth=',iheight,iwidth ipad=(Maxwidth-iwidth)-((Maxwidth-iwidth)/4)*4 irec=54 do i...=irec) ch image(i,j,1)=ichar(ch) end do irec=irec+ipad end do