±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 961  |  »Ø¸´: 5
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

maomao1210

½ð³æ (ÕýʽдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿getarg µÄÓ÷¨

Çó¸ßÊÖÖ¸µãFortran ÖÐGetargµÄÓ÷¨¡£
¿´³ÌÐòµÄʱºòÒѾ­¼ûµ½Getarg(),µ«Ê¼ÖÕûŪÃ÷°×£¬Çó¸ßÊÖÖ¸µã¡£¡£¡£¡£

[ Last edited by sunxiao on 2009-4-30 at 11:30 ]
»Ø¸´´ËÂ¥

» ÊÕ¼±¾ÌûµÄÌÔÌûר¼­ÍƼö

fortranÏà¹Ø

» ²ÂÄãϲ»¶

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

¡ï ¡ï
sunxiao(½ð±Ò+2,VIP+0):лл²ÎÓ룬»¶Ó­³£À´½»Á÷ 3-23 23:09
g77 µÄ˵Ã÷ÎĵµÖÐÈçÊÇ˵£º

8.11.9.118 GetArg Intrinsic
CALL GetArg(Pos, Value)
Pos: INTEGER not wider than the default kind; scalar; INTENT(IN).
Value: CHARACTER; scalar; INTENT(OUT).
Intrinsic groups: unix.
Description:
Sets Value to the Pos-th command-line argument (or to all blanks if there are fewer
than Value command-line arguments); CALL GETARG(0, value) sets value to the name of
the program (on systems that support this feature).
See Section 8.11.9.133 [IArgC Intrinsic], page 145, for information on how to get the
number of arguments.

Ïà¹ØµÄ IArgC() ÈçÏ£º

8.11.9.133 IArgC Intrinsic
IArgC()
IArgC: INTEGER(KIND=1) function.
Intrinsic groups: unix.
Description:
Returns the number of command-line arguments.
This count does not include the specification of the program name itself.
2Â¥2009-03-23 14:11:55
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

maomao1210

½ð³æ (ÕýʽдÊÖ)

ºÇºÇ£¬¸Ðл£¬²»¹ý¿´²»Ã÷°×£¬ºÇºÇ£¬
3Â¥2009-03-23 15:49:32
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

maomao1210

½ð³æ (ÕýʽдÊÖ)

Õâô¶àÓÃfortranµÄ£¬Á¬Õâ¸öÓ÷¨¶¼²»»áÂ£¿£¿£¿
4Â¥2009-03-25 09:27:39
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÀÏ»¢´óÍõ

ľ³æ (ÖøÃûдÊÖ)

¡ï ¡ï ¡ï ¡ï ¡ï
maomao1210(½ð±Ò+5,VIP+0):Thanks a lot,.. 3-28 17:58
Õâ¸öÊÇÓÃÀ´·µ»ØÄãÊäÈëµÄÃüÁîÐвÎÊýµÄ¡£
call getarg(n,buffer)

ÆäÖÐnÊÇÃüÁîÐòºÅ£¬ bufferÊÇÏàÓ¦µÄÃüÁîÐвÎÊý¡£ÔËÐгÌÐò±¾ÉíµÄÃüÁîÊÇ0ºÅ£¬¸úÔÚËüºóÃæµÄ²ÎÊýÊÇ1£¬2¡£¡£¡£ºÅ¡£

±ÈÈ磬ÄãдÕâÑùÒ»¸öС³ÌÐò£º

character*80 buff
call getarg(0,buff)
write(*,*) buff
call getarg(1, buff)
write(*,*) buff
call getarg(2, buff )
write (*,*) buff
end

È»ºó±àÒëËü£¬±ÈÈç°ÑÕâ¸ö¿ÉÖ´ÐгÌÐòÃüÃûΪmypro£¬È»ºó¼üÈëÃüÁîÈçÏÂ
Linuxϵͳ£¬¼üÈë
./mypro   ar1 ar2
¿ÉÒÔ¿´µ½½á¹ûÊÇ
./mypro
ar1
ar2

WindowsÏ£¬Ôò¼üÈë
mypro ar1 ar2
¿É¿´µ½½á¹ûÊÇ
mypro
ar1
ar2

¿É¼û£¬ÓÃÃüÁîÐз½Ê½£¬³ÌÐòÖ´ÐÐÃüÁî±¾ÉíÊǵÚ0¸ö²ÎÊý£¬ºóÃæ¸úµÄµÚ1£¬2¡£¡£¸ö²ÎÁ¿Ôò¿ÉÒÔÓÃÏàÓ¦µÄgetargÀ´»ñµÃ¡£ÀûÓÃÕâ¸ögetarg£¬Äã¿ÉÒÔÔÚÍⲿÊäÈëÃüÁîʱ¿ØÖƳÌÐòÖеÄһЩ¶«Î÷¡£
5Â¥2009-03-27 19:29:53
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

windhair

Í­³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
Originally posted by maomao1210 at 2009-3-25 09:27:
Õâô¶àÓÃfortranµÄ£¬Á¬Õâ¸öÓ÷¨¶¼²»»áÂ£¿£¿£¿

ѧ³ÌÐòÕâ¸ö¶«Î÷£¬ºÜ¶à²»ÄÜÒ»¾ä¾ä½ÌÄãÔõôÓã¬ÄãÒ²²»ÄܵȱðÈËÒ»¾äÒ»¾ä¸øÄã˵£¬µÃ½áºÏ±ðÈ˸øµÄÀý×ÓµÄÏà¹Ø°ïÖúÎĵµÀ´Àí½âѧϰ¡£
6Â¥2009-04-02 23:33:37
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ maomao1210 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 11408Èí¼þ¹¤³ÌÇóµ÷¼Á +3 Qiuѧing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[¿¼ÑÐ] 316Çóµ÷¼Á +7 ½­´Ç666 2026-03-26 7/350 2026-03-28 21:28 by sanrepian
[¿¼ÑÐ] »¯Ñ§0703 µ÷¼Á 306·Ö Ò»Ö¾Ô¸211 +4 26ÒªÉϰ¶ 2026-03-28 4/200 2026-03-28 15:30 by 1018329917
[¿¼ÑÐ] 283Çóµ÷¼Á +7 A child 2026-03-28 7/350 2026-03-28 12:05 by zllcz
[¿¼ÑÐ] Çóµ÷¼ÁÍÆ¼ö ²ÄÁÏ 304 +15 ºÉ°üµ°hyj 2026-03-26 15/750 2026-03-28 04:13 by fmesaito
[¿¼ÑÐ] 085701»·¾³¹¤³ÌÇóµ÷¼Á +9 ¶à¾ÃÉϿΠ2026-03-27 9/450 2026-03-28 03:58 by fmesaito
[¿¼ÑÐ] 07»¯Ñ§280·ÖÇóµ÷¼Á +10 722865 2026-03-23 10/500 2026-03-27 15:51 by Plutoqq
[¿¼ÑÐ] Ò»Ö¾Ô¸»ª¶«Àí¹¤´óѧ081700£¬³õÊÔ·ÖÊý271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by »ÝÖÝÅíÓÚêÌ
[¿¼ÑÐ] 343Çóµ÷¼Á +4 ÔùÎÒÒ»±¾Êé 2026-03-23 4/200 2026-03-27 00:40 by wxiongid
[¿¼ÑÐ] 340Çóµ÷¼Á +3 Amber00 2026-03-26 3/150 2026-03-26 18:57 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 289Çóµ÷¼Á +17 ˶ÐǸ° 2026-03-23 17/850 2026-03-26 16:18 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖÐÄÏ´óѧ»¯Ñ§Ñ§Ë¶0703×Ü·Ö337Çóµ÷¼Á +7 niko- 2026-03-22 7/350 2026-03-25 20:14 by qingfeng258
[¿¼ÑÐ] 296Çóµ÷¼Á +4 Íô£¡£¿£¡ 2026-03-25 7/350 2026-03-25 16:41 by Íô£¡£¿£¡
[¿¼ÑÐ] 086003ʳƷ¹¤³ÌÇóµ÷¼Á +6 íµíµ111 2026-03-24 6/300 2026-03-25 10:29 by 3Strings
[¿¼ÑÐ] 318Çóµ÷¼Á +3 plumÀî×Ó 2026-03-23 3/150 2026-03-25 09:42 by ÎíÉ¢ºóÏàÓölc
[¿¼ÑÐ] ²ÄÁÏר˶ÕÒµ÷¼Á +5 ¹þ¹þ¹þºðºðºð¹þ 2026-03-23 5/250 2026-03-24 19:07 by ÁËÁËÁËÁË¡£¡£
[¿¼ÑÐ] 292Çóµ÷¼Á +4 ¶ì¶ì¶ì¶î¶î¶î¶î¶ 2026-03-24 4/200 2026-03-24 16:41 by peike
[¿¼ÑÐ] 277·ÖÇóµ÷¼Á£¬¿çµ÷²ÄÁÏ +3 ¿¼Ñе÷¼Álxh 2026-03-24 3/150 2026-03-24 13:52 by JourneyLucky
[¿¼ÑÐ] 335Çóµ÷¼Á +4 yuyuÓî 2026-03-23 5/250 2026-03-23 23:49 by Txy@872106
[ÂÛÎÄͶ¸å] ¼±·¢ºËÐÄÆÚ¿¯ÂÛÎÄ +3 ÏÍ´ïÎʽò 2026-03-23 5/250 2026-03-23 17:13 by ÃÃ×Ó²»ºÃÈÇ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û