| 查看: 1254 | 回复: 13 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
想以时间为步长，dt=100ns，怎么操作啊？？
|
||
|
程序如下： MODULE PARA IMPLICIT NONE INTEGER*4, PARAMETER:: Ndim=12 REAL,DIMENSION(Ndim,5):: pp INTEGER*4::NOUT END MODULE PARA PROGRAM CM USE PARA IMPLICIT NONE INTEGER:: i,j,k INTEGER::t real::x,y,z REAL*8::r REAL::s,m OPEN (11, file='input.txt') READ(11,*) ((pp(i,j),j=1,4),i=1,Ndim) close(11) call random_seed() t=1 DO call random_number(r) k=1 s = 0.0 do while(k<=Ndim) s=s+pp(k,4) m=s-pp(k,4) if (m y=y+pp(k,2) z=z+pp(k,3) open(12,file="result.txt",access='append') write(12,*) x,y,z,t,k close(12) t = t + 1 end if k=k+1 enddo if (t>100) exit enddo end program cm 就是从0到10μs，每步100ns循环100次，怎么修改？ 目前只是用数字1-100计步的。。。如何做？ |
回复此楼» 猜你喜欢
论文终于录用啦！满足毕业条件了
已经有12人回复
-
2025年遐想
已经有4人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
-
求个博导看看
已经有18人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- TPD操作
已经有4人回复
- 大家有谁知道化学位移160的CH 是什么峰吗？100以上就这一个峰
已经有24人回复
- 2012的CSC，排出时间是13年？
已经有10人回复
- 职场人士厌恶老外 学100句英语吵架句子
已经有10人回复
- fluent时间步长的控制
已经有4人回复
- 【分享】改善体质增强免疫力《吃对蔬果健康100分》PDF格式 【已搜索无重复】
已经有9人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-11-03 12:09:23
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
5楼2011-11-03 12:10:23
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
10楼2011-11-03 14:40:19
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
12楼2011-11-04 18:00:30