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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran module 中如何进行赋值计算
81/1返回列表
查看: 2622  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 281求调剂（0805） +6 烟汐忆海 2026-03-16 15/750 2026-03-18 21:12 by Gaodh_82
[考研] 一志愿天津大学化学工艺专业（081702）315分求调剂 +10 yangfz 2026-03-17 10/500 2026-03-18 20:14 by walc
[教师之家] 焦虑 +8 水冰月月野兔 2026-03-13 12/600 2026-03-18 15:27 by 咪呜喵呜
[考研] 0854可跨调剂，一作一项核心论文五项专利，省、国级证书40+数一英一287 +8 小李0854 2026-03-16 8/400 2026-03-18 14:35 by 搏击518
[考研] 288求调剂，一志愿华南理工大学071005 +4 ioodiiij 2026-03-17 4/200 2026-03-18 12:36 by Linda Hu
[考研] 265求调剂 +3 梁梁校校 2026-03-17 3/150 2026-03-18 09:12 by zhukairuo
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 296求调剂 +5 大口吃饭 身体健 2026-03-13 5/250 2026-03-17 21:05 by 不惑可乐
[考研] 268求调剂 +7 好运连绵不绝 2026-03-12 8/400 2026-03-17 20:28 by xilongliang
[考研] 26考研求调剂 +6 丶宏Sir 2026-03-13 6/300 2026-03-17 16:13 by 醉在风里
[考研] 梁成伟老师课题组欢迎你的加入 +8 一鸭鸭哟 2026-03-14 10/500 2026-03-17 15:07 by 一鸭鸭哟
[考研] 一志愿苏州大学材料工程（085601）专硕有科研经历三项国奖两个实用型专利一项省级立项 +6 大火山小火山 2026-03-16 8/400 2026-03-17 15:05 by 无懈可击111
[考研] 285化工学硕求调剂（081700） +9 柴郡猫_ 2026-03-12 9/450 2026-03-17 10:18 by Sammy2
[考研] 278求调剂 +3 Yy7400 2026-03-13 3/150 2026-03-17 08:24 by laoshidan
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 6/300 2026-03-16 15:58 by 漾漾123sun
[考研] 326求调剂 +3 mlpqaz03 2026-03-15 3/150 2026-03-16 07:33 by Iveryant
[考研] 求老师收留调剂 +4 jiang姜66 2026-03-14 5/250 2026-03-15 20:11 by Winj1e
[考研] 308 085701 四六级已过求调剂 +7 温乔乔乔乔 2026-03-12 14/700 2026-03-14 10:49 by JourneyLucky
[考研] 304求调剂 +6 Mochaaaa 2026-03-12 7/350 2026-03-13 22:18 by 星空星月
[考研] 材料301分求调剂 +5 Liyouyumairs 2026-03-12 5/250 2026-03-13 14:42 by JourneyLucky
信息提示
关闭
请填处理意见
关闭