24小时热门版块排行榜    

查看: 1664  |  回复: 8

hanyi89

铜虫 (初入文坛)

[交流] 【求助】module里面能够让数组从外部接受一些数据吗?【已完结】 已有2人参与

我有个实验产生了一个很大的文件,里面就是画图用的x,y轴的数据,但由于太大,不能直接输入fortran里面,输了会提示statement is too long。那只能从外部导入该数据,因为主程序之外的函数里面还要用这些数,所以打算在module用一个数组来接受数据。

module name1
implicit none

real*8 :: FC_onewei(246016)  

open(1234,file='fcf.txt')   
read(1234,*) FC_onewei

end module

就是把fcf.txt里面的246016个数读到FC_onewei里面。
但是总是说什么在module里面不准这样做。太难啊了~问问各位怎样搞?谢谢~

[ Last edited by 余泽成 on 2010-8-16 at 17:03 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakekill

木虫 (小有名气)

★
余泽成(金币+1):辛苦了,暑假愉快! 2010-08-15 13:10:42
hanyi89(金币+5): 2010-08-15 18:34:37
这个最好是用动态数组来处理吧。

module里面执行语句也都是放在function和subroutine里面的。而且function和subroutine要放在contain里面。

例如:
module example
implicit none
real*8 :: fc_onewei(100)

contain
subroutine read_data_from_file(fc_onewei)
open(1234, file='fcf.txt')
read(1234, *)fc_onewei
end subroutine
end module
2楼2010-08-15 09:29:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanyi89

铜虫 (初入文坛)

引用回帖:
Originally posted by hakekill at 2010-08-15 09:29:48:
这个最好是用动态数组来处理吧。

module里面执行语句也都是放在function和subroutine里面的。而且function和subroutine要放在contain里面。

例如:
module example
implicit none
real*8 :: fc_onewei(1 ...

那我先试试,有问题再问问你呀~~
3楼2010-08-15 18:36:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanyi89

铜虫 (初入文坛)

引用回帖:
Originally posted by hakekill at 2010-08-15 09:29:48:
这个最好是用动态数组来处理吧。

module里面执行语句也都是放在function和subroutine里面的。而且function和subroutine要放在contain里面。

例如:
module example
implicit none
real*8 :: fc_onewei(1 ...

对了,

我的数组是很大的,假如每次用都再读一遍是不是太慢了,不知道有没有快一点的方法~我想过用复制粘贴上去,但是编译的时候说The statement is too long,通不过。所以想要问问别的方法。其实就像开一个固定的空间存放这个数组,想用的时候直接用,不用再从硬盘上读了。

谢谢~~

[ Last edited by hanyi89 on 2010-8-15 at 19:31 ]
4楼2010-08-15 18:47:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakekill

木虫 (小有名气)

★
余泽成(金币+1):谢谢参与应助!暑假愉快! 2010-08-16 11:52:39
hanyi89(金币+5): 2010-08-16 16:54:58
不会出现再读一遍的情况啊。

比如说你调用一次
call read_data_from_file(fc_onewei)
以后,文件里面的数组就都保存到fc_onewei里面了,你下次直接用fc_onewei就可以了啊。
5楼2010-08-16 10:43:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanyi89

铜虫 (初入文坛)

★
nono2009(金币+1):谢谢分享经验。 2010-08-17 07:02:36
谢谢,我自己用common解决了。直接用onewei好像不行。主要那个也是在另外一个函数中,点用一次那个函数就要再算一次onewei。不过谢谢了!
6楼2010-08-16 16:54:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakekill

木虫 (小有名气)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
nono2009(金币+1):鼓励交流。 2010-08-17 07:02:52
哦,你采用module的话,只要用
use module_name
这样就是和common一样的效果啊。

而且用module比common更加方便。
7楼2010-08-16 21:03:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanyi89

铜虫 (初入文坛)

引用回帖:
Originally posted by hakekill at 2010-08-16 21:03:18:
哦,你采用module的话,只要用
use module_name
这样就是和common一样的效果啊。

而且用module比common更加方便。

使用过的,但是数组太大,编译通不过...
8楼2010-08-24 23:24:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hakekill

木虫 (小有名气)

★
小木虫(金币+0.5):给个红包,谢谢回帖交流
嗯,数组太大编译通不过的话就像我上面说的用动态数组了。
9楼2010-08-25 09:25:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hanyi89 的主题更新
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 12/600 2026-11-09 13:26 by Equinoxhua
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 15/750 2026-11-09 13:19 by Equinoxhua
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +6 5sJFDKp2kwuI 2026-11-06 14/700 2026-11-09 11:52 by GwrQVVR6Oenx
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +5 5sJFDKp2kwuI 2026-11-06 16/800 2026-11-09 11:47 by GwrQVVR6Oenx
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 5sJFDKp2kwuI 2026-11-06 15/750 2026-11-09 11:41 by GwrQVVR6Oenx
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 10/500 2026-11-09 08:00 by IhnEQauGmT3K
[考研] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 12/600 2026-11-09 06:32 by l48hFd8Nwae2
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-08 23:01 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[教师之家] 延安大学回应“副教授留绝笔信”:确已离世,正核实举报内容 +3 yexuqing 2026-11-04 5/250 2026-11-07 13:22 by 苏东坡二世
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 kvewwGtKktqB 2026-11-04 16/800 2026-11-06 05:00 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
信息提示
请填处理意见