integer MAX_R4_BUFLEN
parameter( MAX_R4_BUFLEN=HEADER_SIZE+256*256 )
real*4 r4buf(MAX_R4_BUFLEN)
if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
count=HEADER_SIZE+MAX_R4_BUFLEN