| 查看: 1381 | 回复: 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计步的。。。如何做？ |
回复此楼» 猜你喜欢
求调剂
已经有3人回复
-
材料277求调剂
已经有7人回复
-
数一英一271专硕（085401）求调剂，可跨
已经有5人回复
-
291求调剂
已经有21人回复
-
一志愿哈尔滨工业大学材料与化工方向336分
已经有8人回复
-
药学105500求调剂
已经有3人回复
-
考研调剂
已经有4人回复
-
0703化学
已经有7人回复
-
学硕274求调剂
已经有6人回复
-
321求调剂
已经有6人回复
11楼2011-11-04 09:47:46
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
