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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran module 中如何进行赋值计算
北京石油化工学院2026年研究生招生接收调剂公告
81/1返回列表
查看: 2642  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 348求调剂 +5 小懒虫不懒了 2026-03-28 5/250 2026-03-29 10:34 by 唐沐儿
[考研] 327求调剂 +4 汲亦昊 2026-03-29 4/200 2026-03-29 10:26 by wxiongid
[考研] 一志愿北京理工大学本科211材料工程294求调剂 +7 mikasa的围巾 2026-03-28 7/350 2026-03-29 10:21 by ms629
[考研] 291求调剂 +4 Y-cap 2026-03-29 5/250 2026-03-29 08:08 by 无际的草原
[考研] 0703化学 +11 妮妮ninicgb 2026-03-27 11/550 2026-03-29 06:45 by 544594351
[考研] 食品工程专硕一志愿中海洋309求调剂 +4 小张zxy张 2026-03-26 8/400 2026-03-28 19:25 by lbsjt
[考研] 材料与化工272求调剂 +9 阿斯蒂芬2004 2026-03-28 9/450 2026-03-28 15:21 by 1018329917
[考研] 0703化学求调剂 +9 奶油草莓. 2026-03-22 10/500 2026-03-28 13:30 by 唐沐儿
[考研] 0703化学/290求调剂/本科经历丰富/工科也可 +9 丹青奶盖 2026-03-26 10/500 2026-03-28 07:45 by barnett0632
[考研] 070300化学求调剂 +4 起个名咋这么难 2026-03-27 4/200 2026-03-27 21:39 by 83503孙老师
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 312求调剂 +9 上岸吧ZJY 2026-03-22 13/650 2026-03-27 11:24 by sanrepian
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 求调剂 +6 林之夕 2026-03-24 6/300 2026-03-27 08:38 by hypershenger
[考研] 中国科学院深圳先进技术研究院-光纤传感课题组招生-中国科学院大学、深圳理工大学联培 +5 YangTyu1 2026-03-26 5/250 2026-03-26 18:27 by 猫咪猫咪呀
[考研] 290分调剂求助 +3 吉祥止止陈 2026-03-25 3/150 2026-03-25 19:58 by barlinike
[考研] 求b区院校调剂 +4 周56 2026-03-24 5/250 2026-03-25 17:12 by yishunmin
[考研] 求调剂 +3 李李不服输 2026-03-25 3/150 2026-03-25 13:03 by cmz0325
[考研] 333求调剂 +3 ALULU4408 2026-03-23 3/150 2026-03-23 19:04 by macy2011
[考研] 求老师收我 +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
信息提示
关闭
请填处理意见
关闭