| 查看: 832 | 回复: 6 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
lijunjiexm铁虫 (小有名气)
|
[求助]
求助简单的一个参数传递问题，谢谢
|
|
|
请教一个简单程序MID, PROGRAM MID implicit real*8(a-h,o-z) real*8 ia(5) open(10,file='inid.dat') open(21,file='mesh1.dat') read(21,*) numnp,numel do 300 i=1,numnp read(21,2100) idum,xreal,yreal,ia(i) write(10,*) ia(i) c write(10,2100) idum,xreal,yreal,ia(i) 300 continue 2100 format(i5,2x,e15.5,2x,e12.5,2x,i2) end C--------------------------------------------------------------------------------------- mesh1.dat为 5 2 numnp , numel 1 0.00000E+00 0.00000E+00 1 2 0.00000E+00 0.35803E-03 1 3 0.00000E+00 0.70174E-03 1 4 0.00000E+00 0.10317E-02 1 5 0.00000E+00 0.13485E-02 1 但是 用 write(10,*) ia(i)语句后，写进去的inid.dat文件为： 4.940656458412465E-324 4.940656458412465E-324 4.940656458412465E-324 4.940656458412465E-324 4.940656458412465E-324 而选择write(10,2100) idum,xreal,yreal,ia(i) ，则inid.dat为 1 0.00000E+00 0.00000E+00 1 2 0.00000E+00 0.35803E-03 1 3 0.00000E+00 0.70174E-03 1 4 0.00000E+00 0.10317E-02 1 5 0.00000E+00 0.13485E-02 1 但在在debug过程ia的数据居然是 4.940656458412465E-324，这个怎么解释呢？怎么使得ia数组等于 1 1 1 1 1？请多多指教，谢谢 |
回复此楼» 猜你喜欢
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有6人回复
-
明天应该可查了！？
已经有5人回复
-
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有7人回复
-
没有任何消息-是不是就凉了
已经有8人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
人气不行了
已经有10人回复
-
我面上完蛋了
已经有10人回复
-
能否退出参与的面上项目解除限项
已经有24人回复
-
filecode，4个jtjc了
已经有17人回复
-
2026国自然函评费到账
已经有19人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- c语言求助，一个小程序详细讲解
已经有13人回复
- 【求助】如何获得matlab中当前fig图像的信息
已经有6人回复
- 【求助/交流】生物统计学问题，变异系数
已经有11人回复
- 【求助】子程序的参数传递是传址还是传数
已经有3人回复
- 【求助/交流】求助关于Spss的非参数检验的问题
已经有3人回复
- 【求助/交流】酶的动力学参数问题
已经有14人回复
- 【求助】运用BP神经网络训练材料本构模型的一个问题
已经有12人回复
- 【求助】测胸腺肽和转移因子高分子量物质的问题
已经有6人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
7楼2011-09-01 22:28:13
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-09-01 22:07:11
lijunjiexm
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.8
- 红花: 1
- 帖子: 182
- 在线: 87.1小时
- 虫号: 1198843
- 注册: 2011-02-03
- 专业: 常微分方程与动力系统
3楼2011-09-01 22:19:55
lijunjiexm
铁虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 22.8
- 红花: 1
- 帖子: 182
- 在线: 87.1小时
- 虫号: 1198843
- 注册: 2011-02-03
- 专业: 常微分方程与动力系统
4楼2011-09-01 22:24:05
