应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 想以时间为步长，dt=100ns，怎么操作啊？？
141/2返回列表12下一页
查看: 1321  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

totoymy

铜虫 (小有名气)

[求助] 想以时间为步长，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           x=x+pp(k,1)
          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计步的。。。如何做？
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-11-02 21:26:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)

【答案】应助回帖

★
xzhdty(金币+1): 谢谢参与 2011-11-03 17:04:32
扫了一眼你的代码，没有发现t参与运算。
首先你需要确定睡前的t是什么单位，是微秒还是纳秒。然后看1到100个步长是多长时间，最后按照你需要的时间长度设定t的步长和终值就可以了。
赞一下(1人) 回复此楼
2楼2011-11-03 09:35:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huruiusst

木虫 (小有名气)
你这个大循环能循环起来吗？没见过这样的循环格式的
赞一下 回复此楼
SLS,MD，HRSG
3楼2011-11-03 09:54:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
ben_ladeng: 专家考核存档 2011-11-03 17:49:43
引用回帖:
3楼: Originally posted by huruiusst at 2011-11-03 09:54:42:
你这个大循环能循环起来吗？没见过这样的循环格式的

很显然可以循环，这种循环没有次数限制，用 exit 退出，读文件，我一般都用这种循环……
赞一下(1人) 回复此楼
4楼2011-11-03 12:09:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

ben_ladeng: 专家考核存档 2011-11-03 17:49:56
totoymy(金币+10): 2011-11-05 20:56:14
你所谓的时间，是指计算机运行的时间，还是别的？
赞一下(1人) 回复此楼
5楼2011-11-03 12:10:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huruiusst

木虫 (小有名气)
引用回帖:
4楼: Originally posted by snoopyzhao at 2011-11-03 12:09:23:
很显然可以循环，这种循环没有次数限制，用 exit 退出，读文件，我一般都用这种循环……

谢谢指正
回复此楼
SLS,MD，HRSG
6楼2011-11-03 13:34:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

totoymy

铜虫 (小有名气)
引用回帖:
5楼: Originally posted by snoopyzhao at 2011-11-03 12:10:23:
你所谓的时间，是指计算机运行的时间，还是别的？

客观的时间吧，就是真实的时间，和计算机运行时间应该是一致的？谢谢帮助~
赞一下 回复此楼
7楼2011-11-03 14:30:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

totoymy

铜虫 (小有名气)
引用回帖:
1楼: Originally posted by totoymy at 2011-11-02 21:26:25:
程序如下：
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::  ...

纳秒，就是每一步是10的-7次方秒，一共走到10的-5次方秒，一共100下.关键是不会设置啊~
赞一下 回复此楼
8楼2011-11-03 14:32:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

totoymy

铜虫 (小有名气)
引用回帖:
4楼: Originally posted by snoopyzhao at 2011-11-03 12:09:23:
很显然可以循环，这种循环没有次数限制，用 exit 退出，读文件，我一般都用这种循环……

嗯，嘿嘿~~
回复此楼
9楼2011-11-03 14:33:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
引用回帖:
8楼: Originally posted by totoymy at 2011-11-03 14:32:42:
纳秒，就是每一步是10的-7次方秒，一共走到10的-5次方秒，一共100下.关键是不会设置啊~

为什么要这么做？这样做的好处是啥？
赞一下 回复此楼
10楼2011-11-03 14:40:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 totoymy 的主题更新
141/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 03:05 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 5lbyq5wrhb 2026-02-07 3/150 2026-02-08 02:52 by vs90ilomwc
[论文投稿] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 4/200 2026-02-08 02:45 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +3 3rkserf6qr 2026-02-07 3/150 2026-02-08 02:32 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:27 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +5 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:25 by vs90ilomwc
[硕博家园] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 5/250 2026-02-08 02:12 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:07 by vs90ilomwc
[教师之家] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 02:05 by vs90ilomwc
[找工作] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 6/300 2026-02-08 01:46 by vs90ilomwc
[公派出国] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:45 by vs90ilomwc
[考博] 售SCI一区文章，我:8 O5 51O 54,科目齐全 +4 2h7du0nuhk 2026-02-07 7/350 2026-02-08 01:32 by vs90ilomwc
[有机交流] 酰胺脱乙酰基 10+5 chibby 2026-02-03 12/600 2026-02-07 19:29 by 江东闲人
[基金申请] 同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗 +4 hitsdu 2026-02-06 4/200 2026-02-07 13:07 by jurkat.1640
[基金申请] 有时候真觉得大城市人没有县城人甚至个体户幸福 +9 苏东坡二世 2026-02-04 10/500 2026-02-07 12:37 by 小毛球
[考博] 天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人） +4 a793625982 2026-02-05 5/250 2026-02-07 10:57 by a793625982
[公派出国] CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优 +4 雨念 2026-02-01 6/300 2026-02-06 23:32 by MelissaPon
[基金申请] 面上项目申报 +3 Tide man 2026-02-01 3/150 2026-02-05 22:56 by god_tian
[硕博家园] 博士延得我，科研能力直往上蹿 +7 偏振片 2026-02-02 7/350 2026-02-04 17:36 by 陈氏帝国
[教师之家] 遇见不省心的家人很难过 +18 otani 2026-02-03 22/1100 2026-02-04 11:06 by tangmnt
信息提示
关闭
请填处理意见
关闭