fortran程序格式输出

grinch

PROGRAM zzq
PARAMETER M = 63 !经度格点数
PARAMETER N = 51 !纬度格点数
PARAMETER X1 = 2001 !起始年份
PARAMETER X2 = 2001 !终止年份
PARAMETER Y1 = 1 !起始月份
PARAMETER Y2 = 1 !终止月份
real*8 :: A(N, M), C(N, M)
real*8 :: B(M)
character*30 track,outpath
character*4 year
character*2 month
integer :: i, j, k, t
track='F:\MINE\data\CDR\'    !数据存放的位置
outpath='F:\MINE\result\'  !结果保存的路径
A = 0
C = (X2 - X1 + 1)*(Y2 - Y1 + 1)*1.0
open(3,file=trim(outpath)//'cloud.txt',status='replace')
do k = X1, X2
  write(year, "(i4.4)") k
  do t = Y1, Y2
   write(month, "(i2.2)") t
   open(2,file=trim(track)//trim(year)//trim(month)//trim('.txt'),status='old')
   do i = 1, N
    read(2, *) (B(j), j = 1, M)
    do j = 1, M
     if(B(j) == -9999) then
      C(i, j) = C(i, j) - 1.0
      B(j) = 0.0
     endif
     A(i, j) = A(i, j) + B(j)
    enddo
   enddo
  enddo
  close(2)
enddo
do i = 1, N
  do j = 1, M
   write(3, *) A(i, j)/C(i, j)*0.01
  enddo
enddo
end

一颗梅子在南京

改成这样呢：
do j = 1, M
   write(3, *) (A(i, j)/C(i, j)*0.01,i=1,N)
enddo

grinch

一颗梅子在南京 发表于 2016-4-16 13:52
改成这样呢：
do j = 1, M
   write(3, *) (A(i, j)/C(i, j)*0.01,i=1,N)

不行嘢，变成输出格式为3列了