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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 想以时间为步长，dt=100ns，怎么操作啊？？
汕头大学海洋科学接受调剂
141/2返回列表12下一页
查看: 1411  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 08工学 309分求调剂 +11 Yin DY 2026-04-08 11/550 2026-04-14 12:55 by fqwang
[考研] 366求调剂 +10 不知名的小卅 2026-04-11 10/500 2026-04-14 11:36 by lifeisbrave
[考研] 生物学308求调剂 +6 相信必会光芒万� 2026-04-11 6/300 2026-04-14 08:57 by licg0208
[考研] 调剂求收留 +32 果然有我 2026-04-10 33/1650 2026-04-14 08:49 by 木木mumu～
[考研] 考研求调剂 +12 子木呐 2026-04-12 13/650 2026-04-14 01:19 by 王珺璞
[基金申请] 2026 WR青拔 +3 冬日阳光CAS 2026-04-09 6/300 2026-04-13 18:40 by liuchb715
[考研] 211本科材料化工求调剂 +17 YHLAH 2026-04-11 20/1000 2026-04-13 08:46 by Sammy2
[考研] 一志愿0807 数一英一 313 有没有二轮调剂 +12 emokidd 2026-04-08 13/650 2026-04-13 08:32 by lhj2009
[考研] 085404 293求调剂 +9 勇远库爱314 2026-04-08 9/450 2026-04-12 02:24 by 秋豆菜芽
[考研] 一志愿郑州大学 22408 305分求调剂 +5 安小满zzz 2026-04-08 5/250 2026-04-12 00:41 by 蓝云思雨
[考研] 283求调剂 086004考英二数二 +17 那个噜子 2026-04-10 18/900 2026-04-11 16:27 by 明月此时有
[考研] 调剂求助 +6 果然有我 2026-04-11 7/350 2026-04-11 16:22 by 明月此时有
[考研] 085410 273分调剂 +4 X1999 2026-04-09 4/200 2026-04-11 13:05 by pies112
[考研] 考研调剂 +26 硕星赴 2026-04-09 27/1350 2026-04-10 22:24 by 猪会飞
[考研] 263能源动力专硕求调剂 +4 加大号饭盒袋 2026-04-10 4/200 2026-04-10 20:52 by gong120082
[考研] 301求调剂 +5 149. 2026-04-10 5/250 2026-04-10 15:45 by 柴小白
[考研] 085800 能源动力求调剂 +6 阿biu啊啊啊啊啊 2026-04-10 6/300 2026-04-10 15:03 by hemengdong
[考研] 调剂申请086000一志愿西北农林科技大学生物与医药320分-本科齐鲁工业大学 +3 美美女士 2026-04-09 3/150 2026-04-10 10:31 by liuhuiying09
[考研] 招收有机化学、化工，药学，食品灯专业学生 +3 yrfhjgdj 2026-04-08 3/150 2026-04-09 10:15 by QYQX_123
[考研] 313求调剂 +3 十六拾陆 2026-04-07 3/150 2026-04-07 23:20 by lbsjt
信息提示
关闭
请填处理意见
关闭