±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 966  |  »Ø¸´: 5
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

maomao1210

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

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

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

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

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

fortranÏà¹Ø

» ²ÂÄãϲ»¶

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢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µÄ»ØÌû
²é¿´È«²¿ 6 ¸ö»Ø´ð

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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ÇóÊÕÁô +3 1943443204 2026-03-28 3/150 2026-03-29 08:14 by fmesaito
[¿¼ÑÐ] 070300»¯Ñ§354Çóµ÷¼Á +4 101´ÎÏ£Íû 2026-03-28 4/200 2026-03-29 06:19 by ËÉ»¨¸×1201
[¿¼ÑÐ] ¸÷λÀÏʦºÃ£¬ÎÒµÄһ־ԸΪ±±¾©¿Æ¼¼´óѧ085601²ÄÁÏר˶ +7 Koxui 2026-03-28 7/350 2026-03-29 00:58 by ÎÒÊÇС¿µ
[¿¼ÑÐ] 315Çóµ÷¼Á +4 akie... 2026-03-28 5/250 2026-03-28 21:05 by zhq0425
[¿¼ÑÐ] ±¾¿ÆÐÂÄÜÔ´¿ÆÑ§Ó빤³Ì£¬Ò»Ö¾Ô¸»ªÀíÄܶ¯285Çóµ÷¼Á +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÀí£¬ÊýÒ»Ó¢Ò»285ÇóAÇøµ÷¼Á +8 AZMK 2026-03-25 12/600 2026-03-28 18:15 by AZMK
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by ÂäÉ˼
[¿¼ÑÐ] 322Çóµ÷¼Á +5 ¾É… 2026-03-24 5/250 2026-03-28 13:26 by Iveryant
[¿¼ÑÐ] Ò»Ö¾Ô¸ÄϾ©º½¿Õº½Ìì´óѧ²ÄÁÏѧ˶Çóµ÷¼Á +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[¿¼ÑÐ] 081200-314 +3 LILIQQ 2026-03-27 4/200 2026-03-28 09:41 by ±£»¤µØÇòÄãÎÒ×öÆ
[¿¼ÑÐ] 085701»·¾³¹¤³ÌÇóµ÷¼Á +9 ¶à¾ÃÉϿΠ2026-03-27 9/450 2026-03-28 03:58 by fmesaito
[¿¼ÑÐ] Ò»Ö¾Ô¸ Î÷±±´óѧ ×Ü·Ö282 Ó¢ÓïÒ»62 Çóµ÷¼Á +7 18419759900 2026-03-25 8/400 2026-03-27 16:38 by 18419759900
[¿¼ÑÐ] ¿¼Ñл¯Ñ§308·ÖÇóµ÷¼Á +10 ÄãºÃÃ÷ÌìÄãºÃ 2026-03-23 12/600 2026-03-27 14:43 by shangxh
[¿¼ÑÐ] 336²ÄÁÏÇóµ÷¼Á +7 ³ÂäÞÓ¨ 2026-03-26 9/450 2026-03-27 00:20 by wxiongid
[¿¼ÑÐ] 341Çóµ÷¼Á +7 ÇàÄûÃÊ1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[¿¼ÑÐ] 325Çóµ÷¼Á +3 Aoyijiang 2026-03-23 3/150 2026-03-26 20:46 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] µ÷¼Á +4 èÖèÖyoyo 2026-03-26 4/200 2026-03-26 20:43 by fmesaito
[¿¼ÑÐ] ÉϺ£µçÁ¦´óѧ²ÄÁÏ·À»¤ÓëвÄÁÏÖØµãʵÑéÊÒÕÐÊÕµ÷¼ÁÑо¿Éú£¨²ÄÁÏ¡¢»¯Ñ§¡¢µç»¯Ñ§£¬»·¾³£© +4 ÎÒ°®Ñ§µç³Ø 2026-03-23 4/200 2026-03-25 00:59 by 1027_324
[¿¼ÑÐ] µ÷¼Á +4 13853210211 2026-03-24 4/200 2026-03-24 19:44 by ms629
[¿¼ÑÐ] 080500Çóµ÷¼Á +3 zzzzfan 2026-03-24 3/150 2026-03-24 16:38 by barlinike
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û