 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2169 | 回復: 4 | |||
studyhae木蟲 (正式寫手)
|
[交流]
【求助】Frotran如何直接從鍵盤讀取輸入?yún)?shù)？ 已有3人參與
|
| RT，求高手指點。多謝。 |
回復此樓» 猜你喜歡
07化學280分求調劑
已經(jīng)有3人回復
-
考研化學308分求調劑
已經(jīng)有8人回復
-
070300化學求調劑
已經(jīng)有7人回復
-
生物學一志愿985，分數(shù)349求調劑
已經(jīng)有9人回復
-
341求調劑(一志愿湖南大學070300)
已經(jīng)有4人回復
-
336化工調劑
已經(jīng)有5人回復
-
279分求調劑 一志愿211
已經(jīng)有17人回復
-
291求調劑
已經(jīng)有4人回復
-
328求調劑，英語六級551，有科研經(jīng)歷
已經(jīng)有12人回復
-
一志愿上海交大生物與醫(yī)藥專碩324分，求調劑
已經(jīng)有5人回復
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
2樓2011-03-30 13:49:14
whl2dxl
木蟲 (小有名氣)
- 應助: 2 (幼兒園)
- 金幣: 2115.6
- 紅花: 3
- 帖子: 151
- 在線: 115小時
- 蟲號: 1267846
- 注冊: 2011-04-17
- 性別: GG
- 專業(yè): 理論和計算化學
3樓2011-04-22 22:02:14
liuhuisfp
金蟲 (小有名氣)
- 應助: 30 (小學生)
- 金幣: 692.7
- 帖子: 209
- 在線: 56.7小時
- 蟲號: 1206259
- 注冊: 2011-02-19
- 專業(yè): 理論和計算化學
★ ★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
余澤成(金幣+3): 謝謝參與應助！歡迎常來程序語言版！ 2011-04-27 22:32:31
小木蟲(金幣+0.5):給個紅包，謝謝回帖
余澤成(金幣+3): 謝謝參與應助！歡迎常來程序語言版！ 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語言內部非常方便的數(shù)據(jù)轉換。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 運行結果： ./testarg 123 4.5 ./testarg 2 9 FTEMP= -1.229246 123 2 3 FTEMP= 123.0000 4.5 2 3 FTEMP= 4.500000 最后，度娘知道里面有一段，寫的很好，轉在下面。 原始地址：http://zhidao.baidu.com/question/134017037.html character( 3 ) :: cStr = '123' Integer :: iInt = 0 Read( cStr , * ) iInt 此時，iInt = 123(數(shù)字) 轉換成浮點數(shù)也類似。 character( 3 ) :: cStr = '123' Real :: rReal = 0.0 Read( cStr , * ) rReal 此時 rReal = 123.0 從數(shù)字轉換成字符串，用 Write 既可 character( 3 ) :: cStr Integer :: iInt = 123 Write( cStr , * ) iInt 此時 cStr = '123' |
4樓2011-04-27 21:51:47
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
5樓2011-04-27 22:43:41
相關版塊跳轉
我要訂閱樓主 studyhae 的主題更新
| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 考研化學308分求調劑 +7 | 你好明天你好 2026-03-23 | 8/400 |
|
|---|---|---|---|---|
|
|
[考研] 336化工調劑 +4 | 王大坦1 2026-03-23 | 5/250 |
|
|
[考研] 333求調劑 +6 | 87639 2026-03-21 | 10/500 |
|
|
|
[考研] 284求調劑 +6 | Zhao anqi 2026-03-22 | 6/300 |
|
|
|
[考研] 317求調劑 +12 | 申子申申 2026-03-19 | 18/900 |
|
|
|
[考研] 求調劑一志愿海大，0703化學學碩304分，有大創(chuàng)項目，四級已過 +6 | 幸運哩哩 2026-03-22 | 10/500 |
|
|
|
[考研] 求調劑 +6 | 十三加油 2026-03-21 | 6/300 |
|
|
|
[考研] 生物學071000 329分求調劑 +5 | 我愛生物生物愛?/a> 2026-03-17 | 5/250 |
|
|
|
[考研] 260求調劑 +3 | 朱芷琳 2026-03-20 | 4/200 |
|
|
|
[考研] 考研調劑 +4 | 來好運來來來 2026-03-21 | 4/200 |
|
|
|
[考研] 廣西大學材料導師推薦 +3 | 夏夏夏小正 2026-03-17 | 5/250 |
|
|
|
[考研] 085601調劑 358分 +3 | zzzzggh 2026-03-20 | 4/200 |
|
|
|
[考研] 265求調劑 +3 | Jack?k?y 2026-03-17 | 3/150 |
|
|
|
[考研] 一志愿重慶大學085700資源與環(huán)境專碩，總分308求調劑 +3 | 墨墨漠 2026-03-18 | 3/150 |
|
|
|
[考研] 295求調劑 +4 | 一志愿京區(qū)211 2026-03-18 | 6/300 |
|
|
|
[考研] 一志愿南昌大學，327分，材料與化工085600 +9 | Ncdx123456 2026-03-19 | 9/450 |
|
|
|
[考研] 求調劑，一志愿:南京航空航天大學大學 ，080500材料科學與工程學碩，總分289分 +4 | @taotao 2026-03-19 | 4/200 |
|
|
|
[考研] 288求調劑，一志愿華南理工大學071005 +5 | ioodiiij 2026-03-17 | 5/250 |
|
|
|
[考研] 一志愿福大288有機化學，求調劑 +3 | 小木蟲200408204 2026-03-18 | 3/150 |
|
|
|
[碩博家園] 湖北工業(yè)大學 生命科學與健康學院-課題組招收2026級食品/生物方向碩士 +3 | 1喜春8 2026-03-17 | 5/250 |
|