 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 710 | 回復(fù): 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 |
回復(fù)此樓» 猜你喜歡
0856，材料與化工321分求調(diào)劑
已經(jīng)有6人回復(fù)
-
0703化學(xué)求調(diào)劑，各位老師看看我�。�！
已經(jīng)有5人回復(fù)
-
266分，求材料冶金能源化工等調(diào)劑
已經(jīng)有7人回復(fù)
-
張芳銘-中國農(nóng)業(yè)大學(xué)-環(huán)境工程專碩-298
已經(jīng)有3人回復(fù)
-
070300化學(xué)求調(diào)劑
已經(jīng)有4人回復(fù)
-
086000調(diào)劑
已經(jīng)有3人回復(fù)
-
320分，材料與化工專業(yè)，求調(diào)劑
已經(jīng)有4人回復(fù)
-
265求調(diào)劑
已經(jīng)有7人回復(fù)
-
295材料工程專碩求調(diào)劑
已經(jīng)有4人回復(fù)
-
高溫高壓反應(yīng)求助
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求幫忙翻譯一段摘要
已經(jīng)有1人回復(fù)
- 需要大家?guī)兔�，翻譯一段實驗過程
已經(jīng)有1人回復(fù)
- 幫忙翻譯下英譯中，急求，謝謝了，可以翻譯其中一段
已經(jīng)有1人回復(fù)
- 幫忙看一段程序
已經(jīng)有3人回復(fù)
- 幫忙看一段matlab 程序
已經(jīng)有4人回復(fù)
- 幫忙看看一段日文的意思
已經(jīng)有1人回復(fù)
- 求助大俠幫忙，有關(guān)matlab模擬數(shù)據(jù)
已經(jīng)有29人回復(fù)
- 【求助】50金幣求大家?guī)兔Ω囊欢纬绦?/a>
已經(jīng)有13人回復(fù)
- 【求助】幫忙看一段程序
已經(jīng)有9人回復(fù)
- 【求助】做活化時馬弗爐升溫過程中樣品燃燒
已經(jīng)有23人回復(fù)
- 【求助】Riccati傳遞矩陣法求解臨界轉(zhuǎn)速（有部分程序）
已經(jīng)有5人回復(fù)
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
★
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') 在標(biāo)識為 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:建議下次通過“引用回復(fù)該帖”，以便別人收到你的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)化學(xué)
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è): 理論和計算化學(xué)
6樓2010-08-18 20:00:52
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 xiaowu787 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 286求調(diào)劑 +8 | PolarBear11 2026-03-26 | 8/400 |
|
|---|---|---|---|---|
|
[考研] 求調(diào)劑推薦 材料 304 +14 | 荷包蛋hyj 2026-03-26 | 14/700 |
|
|
|
[考研] 化學(xué)308分求調(diào)劑 +8 | 你好明天你好 2026-03-23 | 9/450 |
|
|
|
[考研] 一志愿吉大071010，316分求調(diào)劑 +3 | xgbiknn 2026-03-27 | 3/150 |
|
|
|
[考研] 324求調(diào)劑 +5 | hanamiko 2026-03-26 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +6 | 林之夕 2026-03-24 | 6/300 |
|
|
|
[考研] 325求調(diào)劑 +5 | 李嘉圖·S·路 2026-03-23 | 5/250 |
|
|
|
[考研] 求調(diào)劑 一志愿 本科 北科大 化學(xué) 343 +6 | 13831862839 2026-03-24 | 7/350 |
|
|
|
[考研] 求調(diào)劑 +5 | 蘆lty 2026-03-25 | 6/300 |
|
|
|
[考研] 材料考研求調(diào)劑 +3 | Dendel 2026-03-23 | 6/300 |
|
|
|
[考研] 271求調(diào)劑 +6 | 生如夏花… 2026-03-22 | 6/300 |
|
|
|
[考研] 材料科學(xué)與工程 317求調(diào)劑 +4 | JKSOIID 2026-03-26 | 4/200 |
|
|
|
[考研] 291 求調(diào)劑 +7 | 化工2026屆畢業(yè)?/a> 2026-03-21 | 8/400 |
|
|
|
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3 | 江往賣魚 2026-03-26 | 3/150 |
|
|
|
[考研] 材料專碩 335 分求調(diào)劑 +4 | 拒絕冷暴力 2026-03-25 | 4/200 |
|
|
|
[考研] 求調(diào)劑 +3 | 李李不服輸 2026-03-25 | 3/150 |
|
|
|
[考研] 食品專碩 一志愿雙一流 328 +3 | xiaom99 2026-03-21 | 4/200 |
|
|
|
[考研] 333求調(diào)劑 +3 | ALULU4408 2026-03-23 | 3/150 |
|
|
|
[考研] 石河子大學(xué)（211、雙一流）碩博研究生長期招生公告 +3 | 李子目 2026-03-22 | 3/150 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 +4 | 妮妮ninicgb 2026-03-21 | 4/200 |
|