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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 想以时间为步长，dt=100ns，怎么操作啊？？
北京石油化工学院2026年研究生招生接收调剂公告
52/1返回列表
查看: 1387  |  回复: 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的回帖

totoymy

兑换贵宾

优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！优秀！！有木有！！！
引用回帖:
10楼: Originally posted by snoopyzhao at 2011-11-03 14:40:19:
为什么要这么做？这样做的好处是啥？

为了模拟实际情况吧，大侠帮帮忙吧·~~
赞一下 回复此楼
11楼2011-11-04 09:47:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

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的回帖
查看全部 14 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿武理材料工程302调剂环化或化工 +11 Doleres 2026-03-31 12/600 2026-04-01 01:29 by 1018329917
[考研] 本2一志愿C9-333分，材料科学与工程，求调剂 +9 升升不降 2026-03-31 9/450 2026-03-31 18:01 by 无际的草原
[考研] 08开头看过来！！！ +3 wwwwffffff 2026-03-31 5/250 2026-03-31 17:45 by 星光/
[考研] 085600 材料与化工 329分求调剂 +20 Mr. Z 2026-03-25 21/1050 2026-03-31 16:53 by Zzxxxs
[考研] 材料求调剂 一志愿哈工大总分298分，前三科223分 +11 dongfang59 2026-03-27 11/550 2026-03-31 16:51 by Wang200018
[考研] 330分求调剂 +6 qzenlc 2026-03-29 6/300 2026-03-31 16:44 by Wang200018
[考研] 277跪求调剂 +8 1915668 2026-03-27 13/650 2026-03-31 14:58 by 王亮_大连医科大
[考研] 本科211安全工程，初试290分，求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 334求调剂 +7 Trying] 2026-03-31 7/350 2026-03-31 12:33 by 无际的草原
[考研] 一志愿大连理工大学，机械工程学硕，341 +3 西瓜田的守望者 2026-03-30 3/150 2026-03-31 11:08 by asdfzly
[考研] 297 地理学070500 复试求调剂 +3 小圆圈圈ooo 2026-03-30 3/150 2026-03-30 21:05 by 余震yz
[考研] 292求调剂 +13 是妍子也是研子 2026-03-30 13/650 2026-03-30 18:01 by 小徐0109
[考研] 303求调剂 +7 DLkz1314. 2026-03-30 7/350 2026-03-30 16:05 by shuang5186
[考研] 071000生物学求调剂，初试成绩343 +7 小小甜面团 2026-03-25 7/350 2026-03-28 20:25 by 唐沐儿
[考研] 材料求调剂一志愿哈工大324 +7 闫旭东 2026-03-28 9/450 2026-03-28 08:51 by Xu de nuo
[考研] 一志愿211院校 344分 东北农业大学生物学学硕，求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
[考研] 085600，材料与化工321分调剂 +4 大馋小子 2026-03-27 6/300 2026-03-27 14:11 by 松花缸1201
[考研] 324求调剂 +5 hanamiko 2026-03-26 5/250 2026-03-27 10:33 by wangjy2002
[考研] 296求调剂 +4 汪！？！ 2026-03-25 7/350 2026-03-25 16:41 by 汪！？！
信息提示
关闭
请填处理意见
关闭