| 查看: 1256 | 回复: 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计步的。。。如何做？ |
回复此楼» 猜你喜欢
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有3人回复
-
自荐读博
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有5人回复
-
论文终于录用啦！满足毕业条件了
已经有22人回复
-
不自信的我
已经有5人回复
-
磺酰氟产物，毕不了业了！
已经有4人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- TPD操作
已经有4人回复
- 大家有谁知道化学位移160的CH 是什么峰吗？100以上就这一个峰
已经有24人回复
- 2012的CSC，排出时间是13年？
已经有10人回复
- 职场人士厌恶老外 学100句英语吵架句子
已经有10人回复
- fluent时间步长的控制
已经有4人回复
- 【分享】改善体质增强免疫力《吃对蔬果健康100分》PDF格式 【已搜索无重复】
已经有9人回复
huruiusst
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2687.3
- 帖子: 67
- 在线: 115.8小时
- 虫号: 1103368
- 注册: 2010-09-19
- 性别: GG
- 专业: 传热传质学
3楼2011-11-03 09:54:42
huruiusst
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2687.3
- 帖子: 67
- 在线: 115.8小时
- 虫号: 1103368
- 注册: 2010-09-19
- 性别: GG
- 专业: 传热传质学
6楼2011-11-03 13:34:07