program two_simension_random_seed !//主程序名中间不要有空格
    implicit none
    real::a( 300,300 ), b( 300,300 )
    real::rnd
    real::fai( 300,300 )
    integer i,j,n
    real::x
    n=300
    do i=1,n
        do j=1,n
            a( i,j ) =0.0
            b( i,j ) =0.0
        end do
    end do
    CALL RANDOM_SEED()
    open( 1,file='E:\试验程序\one dimension random seed\data1.dat' )
    open( 2,file='E:\试验程序\one dimension random seed\data2.dat' )!//意义不明，不知道你要干什么
    open( 101,file='E:\试验程序\one dimension random seed\fai.dat' )
    do i=1,n
        do j=1,n
            call random_number( rnd )
            x=int( rnd*10 )
            x=x/10
            a( i,j )=x
        end do
    end do
    do i=1,n
        do j=1,n
            call random_number( rnd )
            x=int( rnd*10 )
            x=x/10
            b( i,j )=x
        end do
    end do
    write( 1,20 )( ( a( i,j ),j=1,n ),i=1,n )
    write( 2,20 )( ( b( i,j ),j=1,n),i=1,n )
20  FORMAT ( 1X,300D15.6 )
    rewind( 1 ) !//将文件转回开头，从头读就行了，不必再重新open一次
    rewind( 2 ) !//另外，通道号为10以内的最好不要用，因为它们是程序预留的通道号

    DO i=1,300
        READ(1,'( 300D15.6 )' ) fai( :,i ) !//这个地方就实现了你的要求，冒号代表将从1~100，它是根据你声明部分的多少而定的
        write( 101,20 ) fai( :,i )
    END DO

    close( 1 ) !//一定要有程序结束后将文件关闭的习惯，否则以后编大程序的时候，会出各种各样的问题
    close( 2 )
    close( 101 )
    end program two_simension_random_seed

4楼: Originally posted by 7152075 at 2016-11-09 20:29:00
小事，小事，还是希望你多写多练，同时希望你能加入一个名叫Fortran Coder的群，百度上直接打Fortran coder，那个网站是专门玩Fortran的，资料，教学视频很多，建议看看。同时希望你能加入那个群，群中大神如云，而 ...

2楼: Originally posted by 7152075 at 2016-11-09 19:36:26
你这个代码是有问题的，很多东西你不是太了解，相关说明我在注释中给你了，你看一下，注意一些基本的问题。加油练，慢慢写你会越来越好的，祝成功。
    program two_simension_random_seed !//主程序名中间不要有 ...