 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2171 | 回復(fù): 4 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
studyhae木蟲 (正式寫手)
|
[交流]
【求助】Frotran如何直接從鍵盤讀取輸入?yún)?shù)？ 已有3人參與
|
||
| RT，求高手指點(diǎn)。多謝。 |
回復(fù)此樓» 猜你喜歡
一志愿北化求調(diào)劑
已經(jīng)有4人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有6人回復(fù)
-
318一志愿吉林大學(xué)生物與醫(yī)藥 求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿雙一流機(jī)械285分求調(diào)劑
已經(jīng)有4人回復(fù)
-
332求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑
已經(jīng)有7人回復(fù)
-
一志愿武漢理工，總分321，英一數(shù)二，求老師收留。
已經(jīng)有8人回復(fù)
-
375求調(diào)劑
已經(jīng)有3人回復(fù)
-
南京大學(xué)化學(xué)調(diào)劑
已經(jīng)有7人回復(fù)
-
070300化學(xué)354求調(diào)劑
已經(jīng)有5人回復(fù)
whl2dxl
木蟲 (小有名氣)
- 應(yīng)助: 2 (幼兒園)
- 金幣: 2115.6
- 紅花: 3
- 帖子: 151
- 在線: 115小時
- 蟲號: 1267846
- 注冊: 2011-04-17
- 性別: GG
- 專業(yè): 理論和計算化學(xué)
3樓2011-04-22 22:02:14
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2011-03-30 13:49:14
liuhuisfp
金蟲 (小有名氣)
- 應(yīng)助: 30 (小學(xué)生)
- 金幣: 692.7
- 帖子: 209
- 在線: 56.7小時
- 蟲號: 1206259
- 注冊: 2011-02-19
- 專業(yè): 理論和計算化學(xué)
★ ★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
余澤成(金幣+3): 謝謝參與應(yīng)助！歡迎常來程序語言版！ 2011-04-27 22:32:31
小木蟲(金幣+0.5):給個紅包，謝謝回帖
余澤成(金幣+3): 謝謝參與應(yīng)助！歡迎常來程序語言版！ 2011-04-27 22:32:31
|
使用 CALL GETARG(n,buffer[,status])可以獲取命令行參數(shù)（即運(yùn)行程序時后面以空格隔開的參數(shù)） 我用gfortran編譯試過可以。 忘了在哪個網(wǎng)頁找到的，再次表示感謝。 n 輸入，整數(shù)，INTEGER(2)。 參數(shù)的位置，命令本身的值為0： command arg1 arg2 0 1 2 buffer 輸出，字符串，Character*(*)。 返回的參數(shù)或命令： command arg1 arg2 0 1 2 CALL GETARG(1,arg) 則，arg="arg1" status 輸出，整數(shù)，INTEGER(2)，可選。 返回完成狀態(tài)，如果錯誤，返回“-1”；如果正常，返回參數(shù)字符串的長度。 如果輸入的n值小于0，或者大于參數(shù)的個數(shù)，則報錯！ EXAMPLE: PROGRAM TEST INTEGER N1,N2 CHARACTER *20 NAME1 N1=0 CALL GETARG(N1,NAME1) WRITE(*,*) NAME1 N1=1 CALL GETARG(N1,NAME1) WRITE(*,*) NAME1 N1=2 CALL GETARG(N1,NAME1) WRITE(*,*) NAME1 N1=3 CALL GETARG(N1,NAME1) WRITE(*,*) NAME1 N1=4 CALL GETARG(N1,NAME1) WRITE(*,*) NAME1 END f77/gfortran test.f -o test test just try get argc haha 輸出： test just try get argc 對于ifort編譯器，getarg（n,string,status），有一個status變量，可以加，也可以不加。 對于C語言粉絲（說我那），可能會特別懷念main(int argc, char **argv)和C語言內(nèi)部非常方便的數(shù)據(jù)轉(zhuǎn)換。fortran也可以實(shí)現(xiàn)。 IARGC()就是獲取命令行參數(shù)數(shù)目的。 同時，使用read和write語句可以方便地將命令行讀入的字符串賦值給整形或者浮點(diǎn)變量。 PROGRAM TESTGETARG CHARACTER*80 CMMDLINE INTEGER N,NN REAL FTEMP CALL GETARG(0,CMMDLINE,NN) N=IARGC() WRITE(*,*) CMMDLINE,N,NN,"FTEMP=",FTEMP CALL GETARG(1,CMMDLINE,NN) N=IARGC() READ(CMMDLINE,*)FTEMP WRITE(*,*) CMMDLINE,N,NN,"FTEMP=",FTEMP CALL GETARG(2,CMMDLINE,NN) N=IARGC() READ(CMMDLINE,*)FTEMP WRITE(*,*) CMMDLINE,N,NN,"FTEMP=",FTEMP END 運(yùn)行結(jié)果： ./testarg 123 4.5 ./testarg 2 9 FTEMP= -1.229246 123 2 3 FTEMP= 123.0000 4.5 2 3 FTEMP= 4.500000 最后，度娘知道里面有一段，寫的很好，轉(zhuǎn)在下面。 原始地址：http://zhidao.baidu.com/question/134017037.html character( 3 ) :: cStr = '123' Integer :: iInt = 0 Read( cStr , * ) iInt 此時，iInt = 123(數(shù)字) 轉(zhuǎn)換成浮點(diǎn)數(shù)也類似。 character( 3 ) :: cStr = '123' Real :: rReal = 0.0 Read( cStr , * ) rReal 此時 rReal = 123.0 從數(shù)字轉(zhuǎn)換成字符串，用 Write 既可 character( 3 ) :: cStr Integer :: iInt = 123 Write( cStr , * ) iInt 此時 cStr = '123' |
4樓2011-04-27 21:51:47
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
5樓2011-04-27 22:43:41
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 318一志愿吉林大學(xué)生物與醫(yī)藥 求調(diào)劑 +3 | 篤行致遠(yuǎn). 2026-03-28 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 2026年華南師范大學(xué)歡迎化學(xué)，化工，生物，生醫(yī)工等專業(yè)優(yōu)秀學(xué)子加入！ +3 | llss0711 2026-03-28 | 6/300 |
|
|
[考研] 329求調(diào)劑 +8 | 鈕恩雪 2026-03-25 | 8/400 |
|
|
|
[考研] 一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑 +7 | mikasa的圍巾 2026-03-28 | 7/350 |
|
|
|
[考研] 11408軟件工程求調(diào)劑 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|
|
|
[考研] 265求調(diào)劑 +8 | 小木蟲085600 2026-03-27 | 8/400 |
|
|
|
[考研] 材料292調(diào)劑 +12 | 橘頌思美人 2026-03-23 | 12/600 |
|
|
|
[考研] 考研調(diào)劑 +10 | 呼呼？~+123456 2026-03-24 | 10/500 |
|
|
|
[考研] 317求調(diào)劑 +7 | 蛋黃咸肉粽 2026-03-26 | 7/350 |
|
|
|
[考研] 341求調(diào)劑 +7 | 青檸檬1 2026-03-26 | 7/350 |
|
|
|
[考研] 中國科學(xué)院深圳先進(jìn)技術(shù)研究院-光纖傳感課題組招生-中國科學(xué)院大學(xué)、深圳理工大學(xué)聯(lián)培 +5 | YangTyu1 2026-03-26 | 5/250 |
|
|
|
[考研] 材料與化工304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-26 | 6/300 |
|
|
|
[考研] 機(jī)械學(xué)碩310分，數(shù)一英一，一志愿211本科雙非找調(diào)劑信息 +3 | @357 2026-03-25 | 3/150 |
|
|
|
[考研] 263求調(diào)劑 +6 | yqdszhdap－ 2026-03-22 | 10/500 |
|
|
|
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5 | 軒小寧—— 2026-03-26 | 5/250 |
|
|
|
[考研] 化學(xué)調(diào)劑一志愿上海交通大學(xué)336分-本科上海211 +4 | 小魚愛有機(jī) 2026-03-25 | 4/200 |
|
|
|
[考研] 生物技術(shù)與工程 +3 | 1294608413 2026-03-25 | 4/200 |
|
|
|
[考研] B區(qū)考研調(diào)劑 +4 | yqdszhdap－ 2026-03-22 | 5/250 |
|
|
|
[考研] 344求調(diào)劑 +3 | desto 2026-03-24 | 3/150 |
|
|
|
[考研] 335求調(diào)劑 +4 | yuyu宇 2026-03-23 | 5/250 |
|