160|19970101|5.3|13.4|-5.2|304.9|31.1|0|
160|19970102||0|-6.5|337.4|24.7|0|
160|19970103|-4.3|.3|-7.7|334.4|23.1|0|
이런 형식의 데이터가 있을때 |가 문제거든요..
이 형식의 데이터가 aaa.dat로 저장 되있다고 할때
저 데이터를 하나의 문자로 처음에 읽어서
character(len=80) :: dat
character :: k='|'
character(len=4) :: kp=' '
open(1,file='aaa.dat',status='old')
1 read(1,'a80',end=11) dat
do i=1,80
if(dat(i:i) == '|') k=kp (이부분이 문제인거같은데.. |문자를 공백으로 치환하는 부분)
enddo
write(*,*) dat
goto 1
11 continue