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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran module 中如何进行赋值计算
81/1返回列表
查看: 2619  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

hanye0517

木虫 (小有名气)

[求助] fortran module 中如何进行赋值计算 已有1人参与

我想实现这样一个功能，就是有一些变量，比如 A，B，C，用module声明之后在其他子程序中调用
其中，C=A*B-2  ，用namelist 对A，B 赋初值。然后由前式计算C
在子程序中，USE module_name ，ONLY  ：A，B，C
但是实际上在module中赋值时，module中不允许进行计算声明，同时，用contains
包含子程序也需要调用才能执行。

如何在module中，读入A ，B 两个值后，自动计算C 的值，并使之可以在 subroutine中被调用？
或者有没有其他的实现方法？
Plus ， 虽然可以在子程序中进行计算C，但是我C其实也算是一个初始变量，只不过需要一个简单的计算，多个子程序都要用到C的值，所以
希望它能像A B 一样可以被调用，求帮助！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
道之所在，虽千万人吾往矣。
1楼 2014-06-25 10:29:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
hanye0517: 金币+25, ★★★很有帮助, 虽然不是我想要的，但提供以一种解决问题的方法，谢谢，能不能有更方便的方法？》 2014-06-28 17:05:31
Fortran代码如下:
<pre>
      module module_name
      real(8) :: a,b,c
      
      contains
          subroutine initial_ab
          namelist /ab/ a,b
          open(10,file='test.inp',action='read')
          read(10,nml=ab)
          close(10)
          end subroutine
         
          subroutine initial_c
          c = a*b - 2.0
          end subroutine
      end module
      
      ! main program
      program main
      use module_name
      implicit none
      
      call initial_ab
      call initial_c
      
      print*, 'a = ',a
      print*, 'b = ',b
      print*, 'c = ',c
      
      stop
      end program
</pre>
输入文件test.inp如下
<pre>
&ab
    a = 1.5
    b = 2.5
/
</pre>
结果
<pre>
a =    1.50000000000000     
b =    2.50000000000000     
c =    1.75000000000000
</pre>
赞一下(1人) 回复此楼
2楼2014-06-28 03:34:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanye0517

木虫 (小有名气)
引用回帖:
2楼: Originally posted by fish.yfyh at 2014-06-28 03:34:52
Fortran代码如下:
<pre>
      module module_name
      real(8) :: a,b,c
      
      contains
          subroutine initial_ab
          namelist /ab/ a,b
          open(10,file='test.in ...

谢谢你的回复，你的方法当然可行，在主程序中先把C 值调用计算后存入内存。可以把其放在主程序中进行初始赋值。
相当于编了一个计算C 的程序，然后在主程序里边调用（call），对C进行赋值，我的问题是，我要在多个子程序里边调用A，B，C 的值，在多个子程序中。能不能在module中就进行计算，直接出C的值？不需要在主程序中调用？
这样显得会方便些，同时也省得记住要计算C的值。
赞一下 回复此楼
道之所在，虽千万人吾往矣。
3楼2014-06-28 17:04:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

绿遍山原

铜虫 (小有名气)
引用回帖:
3楼: Originally posted by hanye0517 at 2014-06-28 17:04:30
谢谢你的回复，你的方法当然可行，在主程序中先把C 值调用计算后存入内存。可以把其放在主程序中进行初始赋值。
相当于编了一个计算C 的程序，然后在主程序里边调用（call），对C进行赋值，我的问题是，我要在多个 ...

最开头调用一次不就行了。
赞一下 回复此楼
要夢遊，不要催眠。
4楼2014-06-28 17:48:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
hanye0517: 金币+10, ★有帮助, 与楼上方法相同，谢谢回复 2014-06-29 20:10:43
引用回帖:
3楼: Originally posted by hanye0517 at 2014-06-28 17:04:30
谢谢你的回复，你的方法当然可行，在主程序中先把C 值调用计算后存入内存。可以把其放在主程序中进行初始赋值。
相当于编了一个计算C 的程序，然后在主程序里边调用（call），对C进行赋值，我的问题是，我要在多个 ...

至少需要调用一次，不然c的值怎么得到？
解决办法就是在主程序开始，调用一次初始化，把c的值放入内存，后面的每一个subroutine都可以用了。
赞一下 回复此楼
5楼2014-06-28 19:21:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanye0517

木虫 (小有名气)
引用回帖:
5楼: Originally posted by fish.yfyh at 2014-06-28 19:21:57
至少需要调用一次，不然c的值怎么得到？
解决办法就是在主程序开始，调用一次初始化，把c的值放入内存，后面的每一个subroutine都可以用了。...

这么说没办法在module中直接计算么，我是觉得a，b的值计算C 这调用一次比较麻烦，如果值能这样的话，只好做一个初始化的计算子历程，把所有的需要初步计算的值都统一调用计算一遍了
赞一下 回复此楼
道之所在，虽千万人吾往矣。
6楼2014-06-29 20:10:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fish.yfyh

铜虫 (小有名气)
引用回帖:
6楼: Originally posted by hanye0517 at 2014-06-29 20:10:16
这么说没办法在module中直接计算么，我是觉得a，b的值计算C 这调用一次比较麻烦，如果值能这样的话，只好做一个初始化的计算子历程，把所有的需要初步计算的值都统一调用计算一遍了...

use只是在调用module中的变量。
里面的值要么是parameter，已经定义好了的。
要么就你这样，未定的，一定要计算一次才有值的，那么就必须显式call一次。

调用一次，有“那么麻烦吗”??
赞一下 回复此楼
7楼2014-06-30 10:58:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hanye0517

木虫 (小有名气)
引用回帖:
7楼: Originally posted by fish.yfyh at 2014-06-30 10:58:15
use只是在调用module中的变量。
里面的值要么是parameter，已经定义好了的。
要么就你这样，未定的，一定要计算一次才有值的，那么就必须显式call一次。

调用一次，有“那么麻烦吗”??...

一个其实不麻烦，很多个就比较烦躁，只能集合在一起了
赞一下 回复此楼
道之所在，虽千万人吾往矣。
8楼2014-06-30 14:51:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hanye0517 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 295求调剂 +3 一志愿京区211 2026-03-18 5/250 2026-03-18 17:03 by zhaoqian0518
[考研] 354求调剂 +3 Tyoumou 2026-03-18 5/250 2026-03-18 16:41 by Tyoumou
[教师之家] 焦虑 +8 水冰月月野兔 2026-03-13 12/600 2026-03-18 15:27 by 咪呜喵呜
[考研] 297求调剂 +8 戏精丹丹丹 2026-03-17 8/400 2026-03-18 14:30 by laoshidan
[考研] 一志愿西南交大，求调剂 +4 材化逐梦人 2026-03-18 4/200 2026-03-18 14:22 by 007_lilei
[考研] 331求调剂（0703有机化学 +7 ZY-05 2026-03-13 8/400 2026-03-18 14:13 by 007_lilei
[考研] 工科材料085601 279求调剂 +6 困于星晨 2026-03-17 6/300 2026-03-18 10:21 by kkcoco25
[考研] 307求调剂 +3 冷笙123 2026-03-17 3/150 2026-03-18 09:55 by macy2011
[硕博家园] 湖北工业大学 生命科学与健康学院-课题组招收2026级食品/生物方向硕士 +3 1喜春8 2026-03-17 5/250 2026-03-17 17:18 by ber川cool子
[考研] 085601求调剂 +4 Du.11 2026-03-16 4/200 2026-03-17 17:08 by ruiyingmiao
[考研] 东南大学364求调剂 +5 JasonYuiui 2026-03-15 5/250 2026-03-16 21:28 by 木瓜膏
[考研] 333求调剂 +3 文思客 2026-03-16 7/350 2026-03-16 18:21 by 文思客
[基金申请] 今年的国基金是打分制吗？ 50+3 zhanghaozhu 2026-03-14 3/150 2026-03-16 17:07 by 北京莱茵润色
[考研] 318求调剂 +3 Yanyali 2026-03-15 3/150 2026-03-16 16:41 by houyaoxu
[考研] 283求调剂 +10 小楼。 2026-03-12 14/700 2026-03-16 16:08 by 13811244083
[考研] 复试调剂 +3 呼呼？~+123456 2026-03-14 3/150 2026-03-14 16:53 by WTUChen
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-12 10/500 2026-03-13 15:42 by ms629
[考研] 一志愿山大07化学 332分 四六级已过 本科山东双非 求调剂！ +3 不想理你 2026-03-12 3/150 2026-03-13 14:18 by JourneyLucky
[考研] 283求调剂，材料、化工皆可 +8 苏打水7777 2026-03-11 10/500 2026-03-13 09:06 by Linda Hu
[考博] 26读博 +4 Rui135246 2026-03-12 10/500 2026-03-13 07:15 by gaobiao
信息提示
关闭
请填处理意见
关闭