应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】module里面能够让数组从外部接受一些数据吗？【已完结】
91/1返回列表
查看: 1254  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-08-14 20:27:34
已阅   回复此楼   关注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
赞一下(1人) 回复此楼
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就可以了啊。
赞一下(1人) 回复此楼
5楼2010-08-16 10:43:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanyi89

铜虫 (初入文坛)
★
nono2009(金币+1):谢谢分享经验。 2010-08-17 07:02:36
谢谢，我自己用common解决了。直接用onewei好像不行。主要那个也是在另外一个函数中，点用一次那个函数就要再算一次onewei。不过谢谢了！
赞一下(1人) 回复此楼
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更加方便。
赞一下(2人) 回复此楼
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):给个红包，谢谢回帖交流
嗯，数组太大编译通不过的话就像我上面说的用动态数组了。
赞一下(2人) 回复此楼
9楼2010-08-25 09:25:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hanyi89 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0856调剂，是学校就去 +4 sllhht 2026-03-19 5/250 2026-03-19 17:45 by 星空星月
[考研] 286求调剂 +6 lemonzzn 2026-03-16 10/500 2026-03-19 14:31 by lemonzzn
[考研] 求调剂，一志愿:南京航空航天大学大学 ，080500材料科学与工程学硕，总分289分 +3 @taotao 2026-03-19 3/150 2026-03-19 14:07 by peike
[考研] 一志愿南昌大学，327分，材料与化工085600 +3 Ncdx123456 2026-03-19 3/150 2026-03-19 13:18 by houyaoxu
[考研] 328求调剂，英语六级551，有科研经历 +4 生物工程调剂 2026-03-16 12/600 2026-03-19 11:10 by 生物工程调剂
[考研] 一志愿中海洋材料工程专硕330分求调剂 +7 小材化本科 2026-03-18 7/350 2026-03-19 10:46 by Linda Hu
[考研] 一志愿天大材料与化工（085600）总分338 +5 蔡大美女 2026-03-13 5/250 2026-03-19 10:44 by 是小刘呀～
[考研] 267一志愿南京工业大学0817化工求调剂 +10 SUICHILD 2026-03-12 10/500 2026-03-19 09:51 by Delta2012
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +7 步川酷紫123 2026-03-13 7/350 2026-03-18 17:12 by 尽舜尧1
[考研] 化学工程321分求调剂 +15 大米饭！ 2026-03-15 18/900 2026-03-18 14:52 by haxia
[考研] 085601专硕，总分342求调剂，地区不限 +5 share_joy 2026-03-16 5/250 2026-03-18 14:48 by haxia
[考研] 收复试调剂生 +4 雨后秋荷 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[考研] 考研化学学硕调剂，一志愿985 +4 张vvvv 2026-03-15 6/300 2026-03-17 17:15 by ruiyingmiao
[考研] 308求调剂 +4 是Lupa啊 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[考研] 274求调剂 +5 时间点 2026-03-13 5/250 2026-03-17 07:34 by 热情沙漠
[考研] 333求调剂 +3 文思客 2026-03-16 7/350 2026-03-16 18:21 by 文思客
[考研] 26考研一志愿中国石油大学(华东)305分求调剂 +3 嘉年新程 2026-03-15 3/150 2026-03-15 13:58 by 哈哈哈哈嘿嘿嘿
[考研] 材料与化工 323 英一+数二+物化，一志愿：哈工大 本人本科双一流 +4 自由的_飞翔 2026-03-13 5/250 2026-03-14 19:39 by hmn_wj
[考研] 297求调剂 +4 学海漂泊 2026-03-13 4/200 2026-03-14 11:51 by 热情沙漠
[考研] 330求调剂 +3 ?酱给调剂跪了 2026-03-13 3/150 2026-03-14 10:13 by JourneyLucky
信息提示
关闭
请填处理意见
关闭