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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran module 中如何进行赋值计算
81/1返回列表
查看: 2621  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 267一志愿南京工业大学0817化工求调剂 +7 SUICHILD 2026-03-12 7/350 2026-03-18 18:31 by 30660438
[考研] 一志愿华中科技大学，080502，354分求调剂 +3 守候夕阳CF 2026-03-18 3/150 2026-03-18 18:29 by 科研小拿拿
[考研] 0817 化学工程 299分求调剂 有科研经历 有二区文章 +7 rare12345 2026-03-18 7/350 2026-03-18 14:31 by laoshidan
[考研] 297求调剂 +8 戏精丹丹丹 2026-03-17 8/400 2026-03-18 14:30 by laoshidan
[考研] 0703化学调剂 ，六级已过，有科研经历 +10 曦熙兮 2026-03-15 10/500 2026-03-18 14:19 by 007_lilei
[考研] 0703化学求调剂 总分331 +3 ZY-05 2026-03-13 3/150 2026-03-18 10:58 by macy2011
[考研] 材料专硕326求调剂 +6 墨煜姒莘 2026-03-15 7/350 2026-03-17 17:10 by ruiyingmiao
[考研] 085601求调剂 +4 Du.11 2026-03-16 4/200 2026-03-17 17:08 by ruiyingmiao
[考研] 材料工程专硕274一志愿211求调剂 +6 薛云鹏 2026-03-15 6/300 2026-03-17 11:05 by 学员h26Tkc
[考研] 275求调剂 +4 太阳花天天开心 2026-03-16 4/200 2026-03-17 10:53 by 功夫疯狂
[论文投稿] 有没有大佬发小论文能带我个二作 +3 增锐漏人 2026-03-17 4/200 2026-03-17 09:26 by xs74101122
[考研] 333求调剂 +3 文思客 2026-03-16 7/350 2026-03-16 18:21 by 文思客
[考研] 070300化学学硕求调剂 +6 太想进步了0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 6/300 2026-03-16 15:58 by 漾漾123sun
[考研] 本科南京大学一志愿川大药学327 +3 麦田耕者 2026-03-14 3/150 2026-03-14 20:04 by 外星文明
[考研] 266求调剂 +4 学员97LZgn 2026-03-13 4/200 2026-03-14 08:37 by zhukairuo
[考研] 材料与化工求调剂一志愿 985 总分 295 +8 dream…… 2026-03-12 8/400 2026-03-13 22:17 by 星空星月
[考研] 一志愿211化学学硕310分求调剂 +8 努力奋斗112 2026-03-12 9/450 2026-03-13 15:41 by JourneyLucky
[考研] 土木第一志愿276求调剂，科研和技能十分丰富，求新兴方向的导师收留 +3 土木小天才 2026-03-12 3/150 2026-03-13 15:01 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-12 3/150 2026-03-13 14:30 by 求调剂zz
信息提示
关闭
请填处理意见
关闭