write(13,rec=rec)u Arpita Mandal wrote: > hi > i have tried it in the same way as said by you > > > do > l=1,lyr > write(13,rec=1)u > rec=rec+1 > enddo > > but still i am not getting the right data. i am not getting contours -20 > to 60, instead i am getting 300 to 1000 interval 100 > please suggest help > arpita >