 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 704 | 回復: 5 | |||
xiaowu787木蟲 (正式寫手)
|
[交流]
【求助】幫忙看一段程序 已有3人參與
|
|
剛接觸fortran,請大家?guī)兔聪�，謝謝 1. c$$$是什么意思？c$$$C又是什么意思？它們的作用是什么？ 2. 這段程序說的什么意思呢 c$$$ if (ndebug.eq.1) then c$$$C open (65,file='fort.65',status='unknown',access='append') c$$$ write (65,*) 'In ffinpt' c$$$ call timer(65) c$$$ close (65) c$$$ end if open (4,file='ffield.reax',status='old') rewind (4) iline=0 read (4,'(a40)',end=990,err=990)qffield iline=iline+1 |
回復此樓» 猜你喜歡
271求調(diào)劑
已經(jīng)有4人回復
-
求調(diào)劑323材料與化工
已經(jīng)有4人回復
-
材料學碩，求調(diào)劑
已經(jīng)有9人回復
-
085600材料與化工調(diào)劑
已經(jīng)有15人回復
-
各位老師您好：本人初試372分
已經(jīng)有4人回復
-
【2026考研調(diào)劑】制藥工程 284分 求相關(guān)專業(yè)調(diào)劑名額
已經(jīng)有6人回復
-
289求調(diào)劑
已經(jīng)有9人回復
-
278求調(diào)劑
已經(jīng)有4人回復
-
總分293求調(diào)劑
已經(jīng)有3人回復
-
生物技術(shù)與工程
已經(jīng)有3人回復
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求幫忙翻譯一段摘要
已經(jīng)有1人回復
- 需要大家?guī)兔�，翻譯一段實驗過程
已經(jīng)有1人回復
- 幫忙翻譯下英譯中，急求，謝謝了，可以翻譯其中一段
已經(jīng)有1人回復
- 幫忙看一段程序
已經(jīng)有3人回復
- 幫忙看一段matlab 程序
已經(jīng)有4人回復
- 幫忙看看一段日文的意思
已經(jīng)有1人回復
- 求助大俠幫忙，有關(guān)matlab模擬數(shù)據(jù)
已經(jīng)有29人回復
- 【求助】50金幣求大家?guī)兔Ω囊欢纬绦?/a>
已經(jīng)有13人回復
- 【求助】幫忙看一段程序
已經(jīng)有9人回復
- 【求助】做活化時馬弗爐升溫過程中樣品燃燒
已經(jīng)有23人回復
- 【求助】Riccati傳遞矩陣法求解臨界轉(zhuǎn)速（有部分程序）
已經(jīng)有5人回復
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
★
xiaowu787(金幣+10):謝謝！順便再問一下 2010-05-28 20:40:57
resonant(金幣+1):感謝參與應(yīng)助。 2010-05-28 21:56:04
xiaowu787(金幣+10):謝謝！順便再問一下 2010-05-28 20:40:57
resonant(金幣+1):感謝參與應(yīng)助。 2010-05-28 21:56:04
|
由于 C 在第一列上，所以這一段以 C$$$ 開頭的程序被注釋掉了，也就是在程序中不起任何作用。 下面的代碼很簡單 open (4,file='ffield.reax',status='old') 在標識為 4 的 io 上打開一個已有的文件 ffield.reax rewind (4) 回卷到文件的起始位置 iline=0 iline 賦值為 0 read (4,'(a40)',end=990,err=990)qffield 從 4 這個 io 上讀一個長度為 40 的字符呂 qffield iline=iline+1 iline 加 1 |
2樓2010-05-28 20:22:12
xiaowu787
木蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1406.9
- 散金: 95
- 紅花: 1
- 帖子: 550
- 在線: 430.3小時
- 蟲號: 326816
- 注冊: 2007-03-18
- 性別: GG
nono2009:建議下次通過“引用回復該帖”，以便別人收到你的message. 2010-05-29 14:11:19
|
順便問一下： $開頭的是什么意思？ *開頭的是不是也是注釋？ ********************************************************************** * * * Read in general force field parameters * * * ********************************************************************** if (abs(swa).gt.0.01) write (*,*) $'Warning: non-zero value for lower Taper-radius cutoff' swb=vpar(13) if (swb.lt.zero) stop $'Negative value for upper Taper-radius cutoff' if (swb.lt.5.0) write (*,*) $'Warning: very low value for upper Taper-radius cutoff:',swb |
3樓2010-05-28 20:40:22
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
4樓2010-05-29 08:09:02
xiaowu787
木蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1406.9
- 散金: 95
- 紅花: 1
- 帖子: 550
- 在線: 430.3小時
- 蟲號: 326816
- 注冊: 2007-03-18
- 性別: GG
5樓2010-05-29 09:54:05
oyljw
至尊木蟲 (職業(yè)作家)
格物致知Professional
- 應(yīng)助: 10 (幼兒園)
- 金幣: 16606.1
- 散金: 120
- 紅花: 27
- 帖子: 3191
- 在線: 1025.3小時
- 蟲號: 482354
- 注冊: 2007-12-22
- 性別: GG
- 專業(yè): 理論和計算化學
6樓2010-08-18 20:00:52
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 xiaowu787 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 278求調(diào)劑 +4 | 我可以上岸的對?/a> 2026-03-19 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 086003食品工程求調(diào)劑 +6 | 淼淼111 2026-03-24 | 6/300 |
|
|
|
[考研] 一志愿中南大學化學學碩0703總分337求調(diào)劑 +6 | niko- 2026-03-22 | 6/300 |
|
|
|
[考研] 收08調(diào)劑生 +6 | komorebi69 2026-03-18 | 6/300 |
|
|
|
[考研]
 材料考研調(diào)劑生
+3
|
黃粱一夢千年 2026-03-24 | 3/150 |
|
|
|
[考研] 293求調(diào)劑 +6 | 加一一九 2026-03-24 | 6/300 |
|
|
|
[考研] 一志愿河北工業(yè)大學0817化工278分求調(diào)劑 +7 | jhybd 2026-03-23 | 12/600 |
|
|
|
[考研] 269求調(diào)劑 +4 | 我想讀研11 2026-03-23 | 4/200 |
|
|
|
[考研] 一志愿南京理工大學085701資源與環(huán)境302分求調(diào)劑 +5 | 葵梓衛(wèi)隊 2026-03-18 | 7/350 |
|
|
|
[考研]
 一志愿070300浙大化學358分，求調(diào)劑！
+4
|
酥酥魚.. 2026-03-21 | 4/200 |
|
|
|
[考研] 352求調(diào)劑 +3 | 大米飯！ 2026-03-22 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +5 | Zhangbod 2026-03-21 | 7/350 |
|
|
|
[考研] 0703化學297求調(diào)劑 +3 | Daisy☆ 2026-03-20 | 3/150 |
|
|
|
[考研] 0805材料320求調(diào)劑 +3 | 深海物語 2026-03-20 | 3/150 |
|
|
|
[考研] 材料與化工（0856）304求 B區(qū) 調(diào)劑 +3 | 邱gl 2026-03-21 | 3/150 |
|
|
|
[考研] 一志愿 西北大學 ，070300化學學碩，總分287，雙非一本，求調(diào)劑。 +3 | 晨昏線與星海 2026-03-18 | 3/150 |
|
|
|
[考研] A區(qū)線材料學調(diào)劑 +5 | 周周無極 2026-03-20 | 5/250 |
|
|
|
[考研] 一志愿南理工085701環(huán)境302求調(diào)劑院校 +3 | 葵梓衛(wèi)隊 2026-03-20 | 3/150 |
|
|
|
[考研] 086500 325 求調(diào)劑 +3 | 領(lǐng)帶小熊 2026-03-19 | 3/150 |
|
|
|
[考研] 0856調(diào)劑，是學校就去 +8 | sllhht 2026-03-19 | 9/450 |
|