| 查看: 9254 | 回复: 2 | ||
[求助]
fortran里的DATA语句
|
|
利用DATA对变量进行赋初值 但是有个循环，希望在每个循环新开始的时候再次对变量进行赋值，该怎么修改这个？源程序如下： ******************************************************************** PROGRAM ex IMPLICIT NONE CHARACTER*10::f,S00(1000),S11(1000),S22(1000),yn,kk INTEGER::i REAL::num(1000) 103 continue DATA num/1000*0.0D0/ ....................................... ...................................... ...................................... GOTO 103 END PROGRAM ************************************************************* 现在程序不知错在哪里，每次得到的都是上一次的累加值，不是从新值从新开始的，也就是DATA语句貌似不起作用了。求助各位，谢谢@！ |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有14人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有19人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有24人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有11人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 在Fortran程序中，自定义打印数据列数的三种方法
已经有8人回复
- 急：求用Fortran或者其他语言编写一个程序，处理下面的数据！！！！！！！！！！
已经有37人回复
- 很简单的Fortran赋值出错啦，求大神们帮忙找bug...
已经有11人回复
- fortran 怎么按行读取数据（有小例子）
已经有21人回复
- Fortran输出二进制数据，用matlab读出，结果出错，求助问题何在？
已经有4人回复
- 用fortran怎么读.CSV文件
已经有11人回复
- fortran编译中$符号的使用
已经有4人回复
- fortran源程序如何在CVF6中运行
已经有5人回复
- 求助：fortran程序中换行及return报错
已经有12人回复
- fortran循环求助
已经有3人回复
- 求助！fortran编程实现从txt中一一对应读入数据
已经有6人回复
- fortran中运行中出现无穷大的数怎么处理
已经有9人回复
- FORTRAN中如何实现重复读取一行？
已经有24人回复
- Fortran数据读入格式的修改
已经有5人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- fortran中到底该如何比较两个实数是否相等
已经有8人回复
- 物理模拟是用c语言好还是fortran好？
已经有30人回复
- FORTRAN属性声明出错
已经有8人回复
- C语言与Fortran语言之间的转化
已经有9人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
- 【求助】FORTRAN读取文本文件
已经有9人回复
- 【求助】初学fortran，
已经有15人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
【答案】应助回帖
★ ★ ★ ★ ★
感谢参与，应助指数 +1
yfgj: 金币+5, ★★★★★最佳答案, 谢谢您，问题解决了。但是还想问一下除此之外，还有什么方法吗？ 2013-05-11 21:22:22
ben_ladeng: 专家考核 2013-05-12 09:58:36
感谢参与，应助指数 +1
yfgj: 金币+5, ★★★★★最佳答案, 谢谢您，问题解决了。但是还想问一下除此之外，还有什么方法吗？ 2013-05-11 21:22:22
ben_ladeng: 专家考核 2013-05-12 09:58:36
|
DATA 语句赋值的变量有 SAVE 属性，而且它只在程序初始化的时候有用，后面调用的时候，因为有 SAVE 属性，所以就有你说的那个现象 你如果希望每次都重新赋值，那么用 Fortran 90 的特性就是 num = 0.0D0 就可以了。如果是 Fortran 77，那就只有循环了 do i = 1,1000 num(i) = 0.0D0 end do |
2楼2013-05-11 20:12:48
夕阳西下
金虫 (著名写手)
- 应助: 138 (高中生)
- 贵宾: 0.041
- 金币: 9247.1
- 散金: 73
- 红花: 28
- 沙发: 1
- 帖子: 1268
- 在线: 1164.4小时
- 虫号: 220750
- 注册: 2006-03-20
- 专业: 凝聚态物性 II ：电子结构
- 管辖: 物理
3楼2013-05-13 11:01:01
50