| 查看: 3042 | 回复: 7 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
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 一样可以被调用，求帮助！ |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有7人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran 如何在子程序中实现动态数组的定义和声明？
已经有15人回复
- FORTRAN中不定个数传递参数
已经有5人回复
- fortran里面如何表达连续的整数数列？
已经有6人回复
- 很简单的Fortran赋值出错啦，求大神们帮忙找bug...
已经有11人回复
- fortran程序出现Error: Error in opening the Library module file.[MSIMSLMD]
已经有7人回复
- fortran语言汉字乱码
已经有12人回复
- fortran编译中$符号的使用
已经有4人回复
- fortran中的数组越界问题，
已经有3人回复
- Fortran2003面向对象求助
已经有3人回复
- 求助关于module中变量的问题
已经有4人回复
- intel visual fortran中MKL如何使用，是用use module还是include？
已经有4人回复
- FORTRAN 赋值错乱问题，求大神解答~~~~急。。５５５
已经有4人回复
- fortran error求助
已经有3人回复
- 想问一下影响fortran计算速度的因素都有哪些？
已经有12人回复
- 程序无法运行怎么回事
已经有13人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
- 【求助】如何提取TXT中某列的数据存入一个数组，再对数组做处理
已经有4人回复
- 【求助】求助：安装abinit-6.2.3出现错误
已经有12人回复
- 【求助】FORTRAN中增加计算区域后出错，
已经有5人回复
- 【求助】FORTRAN编译通过，但是运行不了
已经有19人回复
4楼2014-06-28 17:48:57
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
hanye0517: 金币+25, ★★★很有帮助, 虽然不是我想要的，但提供以一种解决问题的方法，谢谢，能不能有更方便的方法？》 2014-06-28 17:05:31
感谢参与，应助指数 +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> |
2楼2014-06-28 03:34:52
hanye0517
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 1700.7
- 散金: 98
- 红花: 17
- 帖子: 144
- 在线: 116.8小时
- 虫号: 1253805
- 注册: 2011-04-02
- 性别: GG
- 专业: 核物理
3楼2014-06-28 17:04:30
5楼2014-06-28 19:21:57
10