integer, parameter :: nst=52
integer            :: ist
character*30       :: stname(nst)
real               :: lon(nst),lat(nst)
open(1,file="test.dat",status="old")
  Do ist=1,nst
    read(1,*) stname(ist), lon(ist), lat(ist)
    write(*,*) stname(ist), lon(ist), lat(ist)
  Enddo
close(1)
open(2,file="STA.DAT",status="unknown")
     Do ist=1,9
       write(2,99) "lon.", ist, "=", lon(ist)
       write(2,99) "lat.", ist, "=", lat(ist)
     Enddo
     Do ist=10,nst
       write(2,98) "lon.", ist, "=", lon(ist)
       write(2,98) "lat.", ist, "=", lat(ist)
     Enddo
close(2)
99     FORMAT(A4,I1,A1,F7.3)
98     FORMAT(A4,I2,A1,F7.3)
End