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