使用Fortran 90在循环中写入txt

Question

我有一个这个子程序将一些数据写入txt文件。问题是代码将所有数据写入一行。这是我的代码。

  SUBROUTINE writetht(Nd, outpath , Tht , Dz , Ct)
        INTEGER :: Nd , i, Ct
        REAL :: Dz , Z
        REAL, DIMENSION(Nd) :: Tht
        CHARACTER(54) :: outpath
        CHARACTER(12) :: filename
        write(filename,'("Tht_",I3,".TXT")')Ct
        OPEN (003, FILE = outpath // filename)
        DO i = 1 , Nd
            Z = Dz * (i - 1)
            WRITE(003, '(2F7.3, 1X)') Z , Tht(i)
        END DO
        CLOSE(003)
    END SUBROUTINE writetht

输出在txt文件中如下所示：

  0.000  0.484  5.000  0.321 10.000  0.321 15.000  0.321 20.000  0.321 25.000  0.321 30.000  0.321 35.000  0.321 40.000

但我想把它作为：

0.000   0.484  
5.000   0.321 
10.000  0.321 
15.000  0.321 
20.000  0.321

我正在为Fortran90使用gfortran编译器。