fortran的文件数组读入读出程序运行不出来

葡萄儿

将一个文本文件内容为站点及经纬度合并到另一个文本文件再输出的程序运行时出现找不到所读文件，路径是放对了的，是不是程序本身的逻辑问题？！fortran编程求助各位大侠了，请求指点啊！程序如下：

        parameter(nsta=27,jw=3,mtnum=12)
        integer ii,jj
        real stat(nsta,jw),mt(nsta,mtnum)
        open(1,file='d:\station.txt')
        do ii=1,27
        do jj=1,3
        read(1,*)stat(ii,jj)
        enddo
        enddo
        close(1)
        open(2,file='d:\egvt.txt')
        do ii=1,27
        do jj=1,12
        read(2,*) mt(ii,jj)
        enddo
        enddo
        close(2)
        open(4,file='d:\htegvt.txt')
        do ii=1,27
        write(4,*)mt,stat
        enddo
        close(4)
        end

一颗梅子在南京

既然找不到所读文件，那还应该是路径的问题呀，另外你可以把三条读文件的语句放到一起，还有就是你的write语句是不是有问题呀

言深深

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d:\htegvt.txt')
        do ii=1,27
        write(4,"(12f10.4,2x,3f20.4)")(mt(ii,jj),jj=1,12),(stat(ii,jj),jj=1,3)
        enddo
close(4)

葡萄儿

言深深 发表于 2013-4-25 08:55

                               
登录/注册后可看大图

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d ...

嗯嗯，明白了呢，O(∩_∩)O谢谢点拨

葡萄儿

言深深 发表于 2013-4-25 08:55

                               
登录/注册后可看大图

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d ...

嗯嗯，明白了呢，O(∩_∩)O谢谢点拨

葡萄儿

言深深 发表于 2013-4-25 08:55

                               
登录/注册后可看大图

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d ...

嗯嗯，明白了呢，O(∩_∩)O谢谢点拨

葡萄儿

言深深 发表于 2013-4-25 08:55

                               
登录/注册后可看大图

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d ...

嗯嗯，明白了呢，O(∩_∩)O谢谢点拨

葡萄儿

言深深 发表于 2013-4-25 08:55

                               
登录/注册后可看大图

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d ...

嗯嗯，明白了呢，O(∩_∩)O谢谢点拨

葡萄儿

言深深 发表于 2013-4-25 08:55

                               
登录/注册后可看大图

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d ...

嗯嗯，明白了呢，O(∩_∩)O谢谢点拨

葡萄儿

言深深 发表于 2013-4-25 08:55

                               
登录/注册后可看大图

输出部分还是需要设定一下的···不如fortran默认的是列优先···和c的行优先是相区别的
open(4,file='d ...

嗯嗯，明白了呢，O(∩_∩)O谢谢点拨