Fortran整理数据格式
遇到个数据格式问题,要把初始格式:# 20106131 52.224.894 99.218 72.20.00.00.0 1
Y02 30.771.000P
Y02 54.140.500S
Y10 36.381.000P
....
整理成每行固定个数(6个):
11 627 1442 3.825.993N101.882E 7 2.40 00.0 0.001.01.0
CUXMP0 19.64YOSMP0 22.19YOSMS0 38.76YIMMP0 24.74YIMMS0 41.83QIJMS0 43.01
YUXMP0 41.53YUXMS0 70.16YULMP0 41.38
....
最终转换成功:
.....
t=0
do while(line2(j+t)(1:1).ne."#")
read(line2(j+t),'(a3,6x,a6,9x,a1)')a(t),b(t),phase
c(t)=a(t)//"M"//phase//"0"//b(t)
if(mod(t,6).ne.0)then
write(4,'(a12,\)')c(t)
else
write(4,'(a12)')c(t)
endif
t=t+1
enddo
write(4,'(/)')
......
页:
[1]