Fortran整理数据格式

ser

遇到个数据格式问题，要把初始格式：
# 2010  6  1  3  1 52.2  24.894   99.218   7  2.2  0.0  0.0  0.0     1         
Y02       30.77  1.000  P
Y02       54.14  0.500  S
Y10       36.38  1.000  P
....
整理成每行固定个数（6个）：
11 627 1442   3.8  25.993N  101.882E      7   2.40      0  0.0 0.00  1.0  1.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,'(/)')
......