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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 想以时间为步长，dt=100ns，怎么操作啊？？
汕头大学海洋科学接受调剂
141/2返回列表12下一页
查看: 1412  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +16 雪逢冬 2026-04-10 16/800 2026-04-14 14:27 by 逆水乘风
[考研] 22408 312求调剂 +11 门路摸摸 2026-04-14 11/550 2026-04-14 14:25 by 不我拉绿卡
[考研] 人工智能320调剂08工类还有机会吗 +18 振—TZ 2026-04-10 19/950 2026-04-14 10:34 by screening
[基金申请] 山东省基金2026 +6 jerry681 2026-04-08 7/350 2026-04-14 10:08 by 羁俗
[考研] 0854调剂 +10 长弓傲 2026-04-11 11/550 2026-04-13 10:38 by wp06
[考研] 生物学调剂，一志愿西南大学348，Top期刊一区二作、二区三作，三等奖学金三次 +5 candyyyi 2026-04-09 5/250 2026-04-13 09:02 by 可淡不可忘
[考研] 295分求调剂 +13 ?要上岸? 2026-04-10 13/650 2026-04-12 15:37 by laoshidan
[考研] 291求调剂 +11 关忆北. 2026-04-09 12/600 2026-04-12 10:32 by 逆水乘风
[考研] 291分调剂 +5 上岸小莹加油 2026-04-09 6/300 2026-04-11 21:06 by 逆水乘风
[考研] 调剂 +5 文道星台 2026-04-11 5/250 2026-04-11 15:01 by 凯凯要变帅
[考研] 一志愿北理工298英一数二已上岸，感谢各位老师 +14 Reframe 2026-04-10 16/800 2026-04-10 23:07 by caotw2020
[考研] 中科院总分315求调剂 +8 lallalh 2026-04-09 8/400 2026-04-10 19:30 by dick_runner
[考研] 一志愿矿大，材料工程专硕314分，0856可调都可以 +15 无懈可击的巨人 2026-04-09 15/750 2026-04-10 18:10 by hmn_wj
[考研] 071000生物学调剂求助 +17 zzzzwww 2026-04-09 20/1000 2026-04-10 15:55 by 求调剂zz
[考研] 机械专368 有去处吗 +4 种大树 2026-04-10 4/200 2026-04-10 15:31 by jiajinhpu
[考研] 一志愿中南大学物理学，英一66，求调剂 +4 长烟旖旎 2026-04-08 5/250 2026-04-10 10:31 by 颖果儿
[考研] 初试分332，一志愿报考西北工业大学， +11 故人?? 2026-04-09 11/550 2026-04-09 21:54 by JineShine
[考研] 材料专硕初试分332一志愿西北工业大学， +12 故人?? 2026-04-09 12/600 2026-04-09 18:34 by Ccclqqq
[考研] 招收有机化学、化工，药学，食品灯专业学生 +3 yrfhjgdj 2026-04-08 3/150 2026-04-09 10:15 by QYQX_123
[考研] 机械专硕273请求调剂 +6 庚申壬申 2026-04-07 6/300 2026-04-08 22:41 by bljnqdcc
信息提示
关闭
请填处理意见
关闭