c	PROGRAM TO CONVERT ASCII TO GRD 
       PROGRAM GRAD
       real lat(16000),lon(16000),temp(16000)
       open(2,file='test.dat')  
       open(3,file='out.dat')
            
       
	do 20 i=1,15600
	read(2,*)lat(i),lon(i),temp(i)
        write(3,*)temp(i)
c 12	format(73(e13.6))
c   30  continue
c   20  continue
   20  continue	
	
       stop
       end