| 查看: 1404 | 回复: 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计步的。。。如何做？ |
回复此楼» 猜你喜欢
人工智能320调剂08工类还有机会吗
已经有14人回复
-
271求调剂
已经有27人回复
-
考研求调剂
已经有7人回复
-
085408光电信息工程专硕355一志愿长春光机所调剂
已经有3人回复
-
071000生物学，一志愿深圳大学296分，求调剂
已经有15人回复
-
302求调剂
已经有7人回复
-
化工学硕 285求调剂
已经有28人回复
-
有没有学校材料专业收跨调(一志愿085410)
已经有12人回复
-
0854调剂
已经有11人回复
-
一志愿085802 323分求调剂
已经有14人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
holmescn
金虫 (正式写手)
- 程序强帖: 37
- 应助: 1 (幼儿园)
- 金币: 1918.8
- 散金: 275
- 红花: 1
- 帖子: 699
- 在线: 102.6小时
- 虫号: 913482
- 注册: 2009-11-26
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2011-11-03 09:35:39
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
5