Fortran Coder

查看: 106|回复: 4

[文件读写] 关于子程序读取txt文件

[复制链接]

6

帖子

2

主题

0

精华

入门

F 币
38 元
贡献
17 点
发表于 2019-2-19 19:36:07 | 显示全部楼层 |阅读模式
本帖最后由 freshman 于 2019-2-19 21:32 编辑

我想用子程序来读取一个文件中的数据并且储存到数组中,然后另外一个子程序会使用该数组中的元素进行计算。
现在代码跑不通跪求大神帮忙看看

[Fortran] 纯文本查看 复制代码
MODULE inputpower
    IMPLICIT NONE
    REAL k(50,152)
END MODULE
[Fortran] 纯文本查看 复制代码
SUBROUTINE getpow(xx,yy)
    USE inputpower
    IMPLICIT NONE
    INTEGER i,j
    OPEN(unit=99,file='test1.txt',status='old',form = 'formatted')
        DO i=1,xx
             READ(99,*) (k(j,i) ,j=1,yy)
             !print*, (k(j,i) ,j=1,yy)
        END DO
    CLOSE(99)
END SUBROUTINE getpow(xx,yy)

[Fortran] 纯文本查看 复制代码
PROGRAM inpow  
    USE inputpower
    IMPLICIT NONE
    INTEGER na,nr
    na = 7
    nr = 7
    !read the input data
    CALL getpow(na,nr)  
    
    END PROGRAM inpow

text文件内容如下
1 1 1 1 1 1 1
2 1 1 1 1 1 1
3 1 1 1 1 1 1
4 1 1 1 1 1 1
5 1 1 1 1 1 1
6 1 1 1 1 1 1
7 1 1 1 1 1 1

问题出在了ps: 自学没几天,请大佬推荐比较好的fortran90书籍

TIM截图20190219193504.png
TIM截图20190219193442.png
TIM截图20190219193321.png
回复

使用道具 举报

6

帖子

2

主题

0

精华

入门

F 币
38 元
贡献
17 点
 楼主| 发表于 2019-2-19 19:45:43 | 显示全部楼层
可能代码特别不规范 主要是参照了一些fortran77的代码

6

帖子

2

主题

0

精华

入门

F 币
38 元
贡献
17 点
 楼主| 发表于 2019-2-19 21:57:08 | 显示全部楼层
SUBROUTINE getpow(xx,yy)
    USE inputpower
    IMPLICIT NONE
    INTEGER i,j
    OPEN(unit=99,file='test1.txt',status='old',form = 'formatted')
        DO i=1,xx
             READ(99,*) (k(j,i) ,j=1,yy)
             !print*, (k(j,i) ,j=1,yy)

        END DO
    CLOSE(99)
END SUBROUTINE getpow(xx,yy)
用排除法得到是红色的两行代码有问题

1359

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
407 元
贡献
365 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2019-2-19 22:02:10 | 显示全部楼层
[Fortran] 纯文本查看 复制代码
MODULE inputpower
    IMPLICIT NONE
    REAL k(50,152)
END MODULE

SUBROUTINE getpow(xx,yy)
    USE inputpower
    IMPLICIT NONE
    INTEGER i,j,xx,yy!//XX,YY需要定义
    OPEN(unit=99,file='test1.txt',status='old',form = 'formatted')
        DO i=1,xx
             READ(99,*) (k(j,i) ,j=1,yy)
             !print*, (k(j,i) ,j=1,yy)
        END DO
    CLOSE(99)
END SUBROUTINE getpow!//这里不写括号

PROGRAM inpow  
    USE inputpower
    IMPLICIT NONE
    INTEGER na,nr
    na = 7
    nr = 7
    !read the input data
    CALL getpow(na,nr)  
    
    END PROGRAM inpow


如果还有问题,请给出错误提示描述。

6

帖子

2

主题

0

精华

入门

F 币
38 元
贡献
17 点
 楼主| 发表于 2019-2-19 22:27:15 | 显示全部楼层
fcode 发表于 2019-2-19 22:02
[mw_shl_code=fortran,true]MODULE inputpower
    IMPLICIT NONE
    REAL k(50,152)

解决了
非常感谢!
谢谢您!!!!!!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-3-25 07:08

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表