fortran에서 head line을 제거하고 그 후부터 읽고싶습니다
안녕하세요 프로그래밍을 막 시작한 학생입니다...
궁금한사항은 다음과 같습니다
Unknown_station, "C:\2012196\1037.12dat"^M
34.19528 131.73533 322.82274^M
Jdatet Time PRN Az Ele Lat Lon kk vv S4
2456122 6.758332 1 194.14 13.96 25.33 129.28 82.76 23.38 -99.000
2456122 6.766666 1 194.13 14.17 25.41 129.30 82.23 23.34 -99.000
2456122 6.774999 1 194.13 14.38 25.50 129.33 81.74 23.31 -99.000
2456122 6.783332 1 194.13 14.59 25.58 129.35 81.23 23.27 -99.000
이런식의 데이터가 있습니다 그래서 위의 4줄을 지우고 그 다음부터 데이터를 읽은 후
Time, Az, Ele, Lat, Lon ,, 이런식으로 배열을 만드려고합니다
그래서 인터넷에서 보이는데로 아래와 같은 방법을 사용하였더니
headline은 무시를하고 데이터를 읽기는 하는데
제가 원하는 x2에는 Time에 대한 값들 x4에는 Az에 대한 값들 이런식으로 나오지 않더라고요 ..
program skip
implicit none
REAL:: lskip,lread
REAL x1,x2,x3,x4,x5,x6,x7,x8,x9,x10
character(len=100):: line
open(unit=20, file = "1037196-2012-07-14_1.Cmn")
! skip first 3 lines
do lskip = 1,3
read(20,*) LIne
End do
! First 5 lines skiped
! Now read actual lines
do lread = 1,7
read(20,*,end=10) x1,x2,x3,x4,x5,x6,x7,x8,x9,x10
write(*,*) x1,x2,x3,x4,x5,x6,x7,x8,x9,x10
enddo
10 continue
end programIDl 같은경우 readcol을 한후 skipline=3이런식으로 제거한 후 format을 지정만 해주면 되던데
포트란은 잘모르겠네요.. 도와주시면 감사하겠습니다
아참 그리고 데이터에서 제거한 위 세줄중 두번째 줄에 있는
34.19528 131.73533 322.82274 이 값들을 따로 Rx(3)의 배열에다 지정해주고싶은데
이것은 어떻게 해야할까요...?
제가 다시 댓글을 달게 되네요 하지만..
program skip
REAL:: lskip,lread
REAL DATA(5,10)
character(len=100):: line
OPEN(unit=20, file = "sample_data.Cmn")
!skip first 3 lines
do lskip = 1,3
read(20,*) Line
End do
print *, line
! First 5 lines skiped
! Now read actual lines
do lread = 1,5
read(20,*) (Data(i,j), j=1,10)
! write(*,*) (Data(i,j), j=1,10)
enddo
이렇게하니 데이터가 나오게 되었습니다
하지만 2번째줄에 있는 저 세가지 값을 어떻게 뽑아내야할지 ..
댓글 달기