Znn3bq.jpeg
ÉÇÍ·´óѧº£Ñó¿ÆÑ§½ÓÊܵ÷¼Á
²é¿´: 2186  |  »Ø¸´: 4
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

studyhae

ľ³æ (ÕýʽдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿FrotranÈçºÎÖ±½Ó´Ó¼üÅ̶ÁÈ¡ÊäÈë²ÎÊý£¿ ÒÑÓÐ3È˲ÎÓë

RT£¬Çó¸ßÊÖÖ¸µã¡£¶àл¡£
»Ø¸´´ËÂ¥
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

whl2dxl

ľ³æ (СÓÐÃûÆø)

¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
΢³¾¡¢ÃÎÏë(½ð±Ò+2): лл»Ø¸´£¬»¶Ó­³£À´³ÌÐòÓïÑ԰棡 2011-04-23 17:25:20
ÊÇ´Ó¼üÅÌÊäÈëÈ»ºó¶ÁÈ¡Âð£¿Èç¹ûÊǵϰ¿ÉÒÔ²ÎÕÕÏÂÃæ
±ÈÈçÎÒÏë¶ÁÈëÄêÁä
write(*,*) "ege"
read(*,*)  ege
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'
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
5Â¥2011-04-27 22:43:41
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ҩѧ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
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û