 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2172 | 回復(fù): 4 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
studyhae木蟲 (正式寫手)
|
[交流]
【求助】Frotran如何直接從鍵盤讀取輸入?yún)?shù)？ 已有3人參與
|
||
| RT，求高手指點。多謝。 |
回復(fù)此樓» 猜你喜歡
291求調(diào)劑
已經(jīng)有6人回復(fù)
-
309求調(diào)劑
已經(jīng)有7人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有10人回復(fù)
-
297求調(diào)劑
已經(jīng)有11人回復(fù)
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷
已經(jīng)有6人回復(fù)
-
070305高分子化學(xué)與物理 304分求調(diào)劑
已經(jīng)有11人回復(fù)
-
環(huán)境工程 085701，267求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑
已經(jīng)有9人回復(fù)
-
考研調(diào)劑
已經(jīng)有5人回復(fù)
-
南京大學(xué)化學(xué)調(diào)劑
已經(jīng)有8人回復(fù)
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ù)（即運行程序時后面以空格隔開的參數(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也可以實現(xiàn)。 IARGC()就是獲取命令行參數(shù)數(shù)目的。 同時，使用read和write語句可以方便地將命令行讀入的字符串賦值給整形或者浮點變量。 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 運行結(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)換成浮點數(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è)作家)
- 程序強帖: 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
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è)作家)
- 程序強帖: 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ā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿：西北大學(xué)，英一數(shù)一408-284分求調(diào)劑 +3 | 12.27 2026-03-27 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 材料學(xué)碩333求調(diào)劑 +11 | 北道巷 2026-03-24 | 11/550 |
|
|
[考研] 調(diào)劑考研 +3 | 王杰一 2026-03-29 | 3/150 |
|
|
|
[考研] 299求調(diào)劑 +8 | 15188958825 2026-03-25 | 8/400 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動285求調(diào)劑 +7 | AZMK 2026-03-28 | 11/550 |
|
|
|
[考研] 083000學(xué)碩274求調(diào)劑 +8 | Li李魚 2026-03-26 | 8/400 |
|
|
|
[考研] 283求調(diào)劑 +3 | A child 2026-03-28 | 3/150 |
|
|
|
[考研] 394求調(diào)劑 +3 | 好事多磨靜候佳?/a> 2026-03-26 | 5/250 |
|
|
|
[考研] 317求調(diào)劑 +6 | 十閑wx 2026-03-24 | 6/300 |
|
|
|
[考研] 求調(diào)劑推薦 材料 304 +15 | 荷包蛋hyj 2026-03-26 | 15/750 |
|
|
|
[考研] 085701環(huán)境工程求調(diào)劑 +9 | 多久上課 2026-03-27 | 9/450 |
|
|
|
[考研] 330一志愿中國海洋大學(xué) 化學(xué)工程 085602 有讀博意愿 求調(diào)劑 +3 | wywy.. 2026-03-27 | 4/200 |
|
|
|
[考研] 一志愿211院校 344分 東北農(nóng)業(yè)大學(xué)生物學(xué)學(xué)碩，求調(diào)劑 +5 | 丶風(fēng)雪夜歸人丶 2026-03-26 | 8/400 |
|
|
|
[考研] 272求調(diào)劑 +7 | 腳滑的守法公民 2026-03-27 | 7/350 |
|
|
|
[考研] 284求調(diào)劑 +11 | junqihahaha 2026-03-26 | 12/600 |
|
|
|
[考研] 化學(xué)工程085602 305分求調(diào)劑 +17 | RichLi_ 2026-03-25 | 17/850 |
|
|
|
[考研] 生物學(xué) 296 求調(diào)劑 +4 | 朵朵- 2026-03-26 | 6/300 |
|
|
|
[考研] 085601求調(diào)劑總分293英一數(shù)二 +4 | 鋼鐵大炮 2026-03-24 | 4/200 |
|
|
|
[考研] 考研一志愿蘇州大學(xué)初始315（英一）求調(diào)劑 +3 | sbdksD 2026-03-24 | 4/200 |
|
|
|
[考研] 上海電力大學(xué)材料防護與新材料重點實驗室招收調(diào)劑研究生（材料、化學(xué)、電化學(xué)，環(huán)境） +4 | 我愛學(xué)電池 2026-03-23 | 4/200 |
|