c	PROGRAM TO CONVERT ASCII TO GRD 
       PROGRAM GRAD
       parameter(nx=130,ny=120,np=1)
       real u(nx,ny,np),temp1(nx,ny)
       open(2,file='test.grd',
     1 form='unformatted',access='direct',recl=nx*ny*4)  
       open(1,file='out.dat')
            
        do k=1,np
	read(1,*)((u(j,i,k),j=1,nx),i=1,ny)
   10  continue	
	enddo
	
	irec=1
	do kk=1,np
	write(2,rec=irec)((u(j,i,kk),j=1,nx),i=1,ny)
	write(*,*)'Yea Doing'
       irec=irec+1
	enddo
	write(*,*)'Finished OK!!!!!!!'
	
       stop
       end