| 查看: 1385 | 回复: 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计步的。。。如何做？ |
回复此楼» 猜你喜欢
309求调剂
已经有8人回复
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研经历
已经有8人回复
-
求调剂
已经有5人回复
-
求化学调剂
已经有5人回复
-
085600，材料与化工321分求调剂
已经有10人回复
-
0703 化学 求调剂，一志愿山东大学 342 分
已经有5人回复
-
一志愿南开大学0710生物学359求调剂
已经有3人回复
-
085600，专业课化工原理，320分求调剂
已经有4人回复
-
材料与化工272求调剂
已经有16人回复
-
290求调剂
已经有3人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
12楼2011-11-04 18:00:30
holmescn
金虫 (正式写手)
- 程序强帖: 37
- 应助: 1 (幼儿园)
- 金币: 1918.8
- 散金: 275
- 红花: 1
- 帖子: 699
- 在线: 102.6小时
- 虫号: 913482
- 注册: 2009-11-26
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2011-11-03 09:35:39
huruiusst
木虫 (小有名气)
- 应助: 1 (幼儿园)
- 金币: 2687.3
- 帖子: 67
- 在线: 115.8小时
- 虫号: 1103368
- 注册: 2010-09-19
- 性别: GG
- 专业: 传热传质学
3楼2011-11-03 09:54:42
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-11-03 12:09:23
