totoymy

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲(chóng)號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

[求助] 想以時(shí)間為步長(zhǎng)，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循環(huán)100次，怎么修改？
目前只是用數(shù)字1-100計(jì)步的。。。如何做？

回復(fù)此樓

» 猜你喜歡

265求調(diào)劑已經(jīng)有4人回復(fù)
085700資源與環(huán)境308求調(diào)劑已經(jīng)有6人回復(fù)
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑已經(jīng)有12人回復(fù)
286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！已經(jīng)有3人回復(fù)
329求調(diào)劑已經(jīng)有5人回復(fù)
申請(qǐng)回稿延期一個(gè)月，編輯同意了。但系統(tǒng)上的時(shí)間沒(méi)變，給編輯又寫(xiě)郵件了，沒(méi)回復(fù) 已經(jīng)有4人回復(fù)
材料學(xué)碩318求調(diào)劑已經(jīng)有5人回復(fù)
一志愿中國(guó)海洋大學(xué)，生物學(xué)，301分，求調(diào)劑已經(jīng)有6人回復(fù)
081700化工學(xué)碩調(diào)劑已經(jīng)有3人回復(fù)
一志愿蘇州大學(xué)材料求調(diào)劑，總分315（英一）已經(jīng)有3人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

TPD操作已經(jīng)有4人回復(fù)
大家有誰(shuí)知道化學(xué)位移160的CH 是什么峰嗎？100以上就這一個(gè)峰已經(jīng)有24人回復(fù)
2012的CSC，排出時(shí)間是13年？已經(jīng)有10人回復(fù)
職場(chǎng)人士厭惡老外學(xué)100句英語(yǔ)吵架句子已經(jīng)有10人回復(fù)
fluent時(shí)間步長(zhǎng)的控制已經(jīng)有4人回復(fù)
【分享】改善體質(zhì)增強(qiáng)免疫力《吃對(duì)蔬果健康100分》PDF格式【已搜索無(wú)重復(fù)】已經(jīng)有9人回復(fù)

1樓 2011-11-02 21:26:25

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

holmescn

金蟲(chóng) (正式寫(xiě)手)

程序強(qiáng)帖: 37
應(yīng)助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時(shí)
蟲(chóng)號(hào): 913482
注冊(cè): 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

【答案】應(yīng)助回帖

★
xzhdty(金幣+1): 謝謝參與 2011-11-03 17:04:32

掃了一眼你的代碼，沒(méi)有發(fā)現(xiàn)t參與運(yùn)算。
首先你需要確定睡前的t是什么單位，是微秒還是納秒。然后看1到100個(gè)步長(zhǎng)是多長(zhǎng)時(shí)間，最后按照你需要的時(shí)間長(zhǎng)度設(shè)定t的步長(zhǎng)和終值就可以了。

贊一下(1人)

回復(fù)此樓

2樓2011-11-03 09:35:39

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

huruiusst

木蟲(chóng) (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 2687.3
帖子: 67
在線: 115.8小時(shí)
蟲(chóng)號(hào): 1103368
注冊(cè): 2010-09-19
性別: GG
專業(yè): 傳熱傳質(zhì)學(xué)

你這個(gè)大循環(huán)能循環(huán)起來(lái)嗎？沒(méi)見(jiàn)過(guò)這樣的循環(huán)格式的

贊一下

回復(fù)此樓

SLS,MD，HRSG

3樓2011-11-03 09:54:42

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

ben_ladeng: 專家考核存檔 2011-11-03 17:49:43

引用回帖:

3樓: Originally posted by huruiusst at 2011-11-03 09:54:42:
你這個(gè)大循環(huán)能循環(huán)起來(lái)嗎？沒(méi)見(jiàn)過(guò)這樣的循環(huán)格式的

很顯然可以循環(huán)，這種循環(huán)沒(méi)有次數(shù)限制，用 exit 退出，讀文件，我一般都用這種循環(huán)……

贊一下(1人)

回復(fù)此樓

4樓2011-11-03 12:09:23

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

ben_ladeng: 專家考核存檔 2011-11-03 17:49:56
totoymy(金幣+10): 2011-11-05 20:56:14

你所謂的時(shí)間，是指計(jì)算機(jī)運(yùn)行的時(shí)間，還是別的？

贊一下(1人)

回復(fù)此樓

5樓2011-11-03 12:10:23

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

huruiusst

木蟲(chóng) (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 2687.3
帖子: 67
在線: 115.8小時(shí)
蟲(chóng)號(hào): 1103368
注冊(cè): 2010-09-19
性別: GG
專業(yè): 傳熱傳質(zhì)學(xué)

引用回帖:

4樓: Originally posted by snoopyzhao at 2011-11-03 12:09:23:
很顯然可以循環(huán)，這種循環(huán)沒(méi)有次數(shù)限制，用 exit 退出，讀文件，我一般都用這種循環(huán)……

謝謝指正

回復(fù)此樓

SLS,MD，HRSG

6樓2011-11-03 13:34:07

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

totoymy

銅蟲(chóng) (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲(chóng)號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

引用回帖:

5樓: Originally posted by snoopyzhao at 2011-11-03 12:10:23:
你所謂的時(shí)間，是指計(jì)算機(jī)運(yùn)行的時(shí)間，還是別的？

客觀的時(shí)間吧，就是真實(shí)的時(shí)間，和計(jì)算機(jī)運(yùn)行時(shí)間應(yīng)該是一致的？謝謝幫助~

贊一下

回復(fù)此樓

7樓2011-11-03 14:30:21

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

totoymy

銅蟲(chóng) (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲(chóng)號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

引用回帖:

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下.關(guān)鍵是不會(huì)設(shè)置啊~

贊一下

回復(fù)此樓

8樓2011-11-03 14:32:42

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

totoymy

銅蟲(chóng) (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲(chóng)號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

引用回帖:

嗯，嘿嘿~~

回復(fù)此樓

9樓2011-11-03 14:33:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

引用回帖:

8樓: Originally posted by totoymy at 2011-11-03 14:32:42:
納秒，就是每一步是10的-7次方秒，一共走到10的-5次方秒，一共100下.關(guān)鍵是不會(huì)設(shè)置啊~

為什么要這么做？這樣做的好處是啥？

贊一下

回復(fù)此樓

10樓2011-11-03 14:40:19

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 0856調(diào)劑，是學(xué)校就去 +6	sllhht 2026-03-19	7/350	2026-03-19 19:50 by 制度的
[考研] 一志愿天大材料與化工（085600）總分338 +5	蔡大美女 2026-03-13	5/250	2026-03-19 10:44 by 是小劉呀～
[考研] 0817調(diào)劑 +3	沒(méi)有答案_ 2026-03-14	3/150	2026-03-19 09:51 by Xu de nuo
[考研] 330求調(diào)劑 +3	小材化本科 2026-03-18	3/150	2026-03-18 21:55 by 無(wú)懈可擊111
[考研] 311求調(diào)劑 +4	冬十三 2026-03-18	4/200	2026-03-18 21:47 by 盡舜堯1
[考研] 【同濟(jì)軟件】軟件（085405）考研求調(diào)劑 +3	2026eternal 2026-03-18	3/150	2026-03-18 19:09 by 搏擊518
[考研] 收復(fù)試調(diào)劑生 +4	雨后秋荷 2026-03-18	4/200	2026-03-18 14:16 by elevennnne
[考研] 070300化學(xué)319求調(diào)劑 +6	錦鯉0909 2026-03-17	6/300	2026-03-18 13:22 by Iveryant
[考研] 280求調(diào)劑 +6	咕嚕曉曉 2026-03-18	7/350	2026-03-18 11:25 by 無(wú)際的草原
[考研] 0703化學(xué)求調(diào)劑總分331 +3	ZY-05 2026-03-13	3/150	2026-03-18 10:58 by macy2011
[基金申請(qǐng)] 被我言中：新模板不強(qiáng)調(diào)格式了，假專家開(kāi)始管格式了 +4	beefly 2026-03-14	4/200	2026-03-17 22:04 by 黃鳥(niǎo)于飛Chao
[考研] 326求調(diào)劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 308求調(diào)劑 +4	是Lupa啊 2026-03-16	4/200	2026-03-17 17:12 by ruiyingmiao
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 0854控制工程 359求調(diào)劑可跨專業(yè) +3	626776879 2026-03-14	9/450	2026-03-16 17:42 by 626776879
[考研] 326求調(diào)劑 +4	諾貝爾化學(xué)獎(jiǎng)覬?/a> 2026-03-15	7/350	2026-03-16 17:11 by 諾貝爾化學(xué)獎(jiǎng)覬?/a>
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7	膩膩gk 2026-03-14	7/350	2026-03-16 10:12 by houyaoxu
[考研] 070305求調(diào)劑 +3	mlpqaz03 2026-03-14	4/200	2026-03-15 11:04 by peike
[考研] 080500，材料學(xué)碩302分求調(diào)劑學(xué)校 +4	初識(shí)可樂(lè) 2026-03-14	5/250	2026-03-14 21:08 by peike
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏