应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】Frotran如何直接从键盘读取输入参数？
汕头大学海洋科学接受调剂
51/1返回列表
查看: 2186  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

studyhae

木虫 (正式写手)

[交流] 【求助】Frotran如何直接从键盘读取输入参数？ 已有3人参与

RT，求高手指点。多谢。
回复此楼

» 猜你喜欢
1楼 2011-03-30 11:22:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

whl2dxl

木虫 (小有名气)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
微尘、梦想(金币+2): 谢谢回复，欢迎常来程序语言版！ 2011-04-23 17:25:20
是从键盘输入然后读取吗？如果是的话可以参照下面
比如我想读入年龄
write(*,*) "ege"
read(*,*)  ege
赞一下(2人) 回复此楼
3楼2011-04-22 22:02:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

snoopyzhao

至尊木虫 (职业作家)
★ ★
cenwanglai(金币+2): 谢谢回复，呵呵。 2011-03-30 19:01:49
CODE:
read (*,*) A, B, C
回复此楼
2楼2011-03-30 13:49:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuhuisfp

金虫 (小有名气)
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
余泽成(金币+3): 谢谢参与应助！欢迎常来程序语言版！ 2011-04-27 22:32:31
使用 CALL GETARG(n,buffer[,status])可以获取命令行参数（即运行程序时后面以空格隔开的参数）
我用gfortran编译试过可以。
忘了在哪个网页找到的，再次表示感谢。

n
输入，整数，INTEGER(2)。
参数的位置，命令本身的值为0：
command arg1 arg2
0       1    2

buffer
输出，字符串，Character*(*)。
返回的参数或命令：
command arg1 arg2
0       1    2
CALL GETARG(1,arg)
则，arg="arg1"

status
输出，整数，INTEGER(2)，可选。
返回完成状态，如果错误，返回“-1”；如果正常，返回参数字符串的长度。
如果输入的n值小于0，或者大于参数的个数，则报错！

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语言内部非常方便的数据转换。fortran也可以实现。

IARGC()就是获取命令行参数数目的。

同时，使用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(数字)

转换成浮点数也类似。

character( 3 ) :: cStr = '123'
Real :: rReal = 0.0
Read( cStr , * ) rReal

此时 rReal = 123.0

从数字转换成字符串，用 Write 既可

character( 3 ) :: cStr
Integer :: iInt = 123
Write( cStr , * ) iInt

此时 cStr = '123'
赞一下(2人) 回复此楼
4楼2011-04-27 21:51:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
余泽成(金币+2): 谢谢参与应助！ 2011-04-27 23:40:31
引用回帖:
Originally posted by liuhuisfp at 2011-04-27 21:51:47:
使用 CALL GETARG(n,buffer[,status])可以获取命令行参数（即运行程序时后面以空格隔开的参数）
我用gfortran编译试过可以。
忘了在哪个网页找到的，再次表示感谢。

n
输入，整数，INTEGER(2)。
参 ...

getarg 只是一个编译器的扩展，不是所有的编译器都是支持的，也就是说，使用了这样的扩展，可能使程序的可移植性变差。

在 Fortran 2003 中才提供一个类似的子程序 GET_COMMAND_ARGUMENT
赞一下(2人) 回复此楼
5楼2011-04-27 22:43:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 药学305求调剂 +9 玛卡巴卡boom 2026-04-10 9/450 2026-04-14 11:20 by 不我拉绿卡
[考研] 生物学调剂 +6 纸扇zhishan 2026-04-13 6/300 2026-04-14 10:47 by xuyaxi
[考研] 105500药学求调剂 +3 x_skys 2026-04-12 3/150 2026-04-14 10:26 by lifeisbrave
[考研] 材料工程085601，270求调剂 +41 @ASDF1234 2026-04-08 44/2200 2026-04-14 09:23 by barlinike
[考研] 305求调剂 +8 玛卡巴卡boom 2026-04-11 8/400 2026-04-14 09:04 by pengliang8036
[考研] 机械还有还有名额吗？太难了 +8 笑笑袁 2026-04-10 8/400 2026-04-14 08:44 by screening
[考研] 一志愿中国科学院上海有机所，有机化学356分找调剂 +12 Nadiums 2026-04-09 12/600 2026-04-13 08:50 by lhj2009
[考研] 22408 352分求调剂 +5 努力的夏末 2026-04-09 5/250 2026-04-12 19:17 by wj165256
[考研] 086000调剂 +6 十七sa 2026-04-07 6/300 2026-04-12 11:05 by 大力水手力大无�
[考研] 电气专硕320求调剂 +6 小麻子111 2026-04-10 6/300 2026-04-12 10:54 by lemon6009
[考研] 电气工程专硕320求调剂 +5 小麻子111 2026-04-10 5/250 2026-04-12 10:47 by zhouyuwinner
[考研] 一志愿厦大0856，306求调剂 +15 Bblinging 2026-04-11 15/750 2026-04-11 22:53 by 314126402
[考研] 0854调剂 +4 长弓傲 2026-04-09 4/200 2026-04-11 09:18 by 猪会飞
[考研] 一志愿东北大学控制工程085406数二英二385，求调剂 +8 Ezra_Zhang 2026-04-09 8/400 2026-04-11 09:15 by 猪会飞
[考研] 考研调剂 +26 硕星赴 2026-04-09 27/1350 2026-04-10 22:24 by 猪会飞
[考研] 263能源动力专硕求调剂 +3 加大号饭盒袋 2026-04-10 3/150 2026-04-10 22:23 by 286640313
[考研] 22408 366分，本科211，一志愿西工大 +4 Rubt 2026-04-09 4/200 2026-04-10 19:51 by chemisry
[考研] 301求调剂 +5 149. 2026-04-10 5/250 2026-04-10 15:45 by 柴小白
[考研] 314求调剂 +14 weltZeng 2026-04-09 14/700 2026-04-09 23:14 by wolf97
[考研] 085404，334分，求调剂 +5 sunjie8888 2026-04-08 8/400 2026-04-09 07:26 by sunjie8888
信息提示
关闭
请填处理意见
关闭