| ²é¿´: 961 | »Ø¸´: 5 | ||||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | ||||
maomao1210½ð³æ (ÕýʽдÊÖ)
|
[½»Á÷]
¡¾ÇóÖú¡¿getarg µÄÓ÷¨
|
|||
|
Çó¸ßÊÖÖ¸µãFortran ÖÐGetargµÄÓ÷¨¡£ ¿´³ÌÐòµÄʱºòÒѾ¼ûµ½Getarg(),µ«Ê¼ÖÕûŪÃ÷°×£¬Çó¸ßÊÖÖ¸µã¡£¡£¡£¡£ [ Last edited by sunxiao on 2009-4-30 at 11:30 ] |
» ÊÕ¼±¾ÌûµÄÌÔÌûר¼ÍƼö
fortranÏà¹Ø |
» ²ÂÄãϲ»¶
0856Çóµ÷¼Á
ÒѾÓÐ13È˻ظ´
0703»¯Ñ§
ÒѾÓÐ11È˻ظ´
329Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
321Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
0856²ÄÁÏ»¯¹¤µ÷¼Á ×Ü·Ö330
ÒѾÓÐ12È˻ظ´
309Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
070300»¯Ñ§354Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
330·ÖÇóµ÷¼Á
ÒѾÓÐ3È˻ظ´
299Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
Ò»Ö¾Ô¸±±¾©Àí¹¤´óѧ±¾¿Æ211²ÄÁϹ¤³Ì294Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
snoopyzhao
ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)
- ³ÌÐòÇ¿Ìû: 16
- Ó¦Öú: 157 (¸ßÖÐÉú)
- ¹ó±ö: 0.02
- ½ð±Ò: 18844.7
- ºì»¨: 29
- Ìû×Ó: 3803
- ÔÚÏß: 1422.4Сʱ
- ³æºÅ: 183750
- ×¢²á: 2006-02-13
- רҵ: ÎÛȾÉú̬»¯Ñ§
¡ï ¡ï
sunxiao(½ð±Ò+2,VIP+0):лл²ÎÓ룬»¶Ó³£À´½»Á÷ 3-23 23:09
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
maomao1210
½ð³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 5
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ½ð±Ò: 1432.8
- É¢½ð: 242
- ºì»¨: 16
- ɳ·¢: 1
- Ìû×Ó: 991
- ÔÚÏß: 442.1Сʱ
- ³æºÅ: 253215
- ×¢²á: 2006-05-20
- ÐÔ±ð: MM
- רҵ: ¿¼¹ÅÀíÂÛ
3Â¥2009-03-23 15:49:32
maomao1210
½ð³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 5
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ½ð±Ò: 1432.8
- É¢½ð: 242
- ºì»¨: 16
- ɳ·¢: 1
- Ìû×Ó: 991
- ÔÚÏß: 442.1Сʱ
- ³æºÅ: 253215
- ×¢²á: 2006-05-20
- ÐÔ±ð: MM
- רҵ: ¿¼¹ÅÀíÂÛ
4Â¥2009-03-25 09:27:39
ÀÏ»¢´óÍõ
ľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 26 (СѧÉú)
- ¹ó±ö: 0.17
- ½ð±Ò: 4774.1
- É¢½ð: 8
- ºì»¨: 42
- Ìû×Ó: 1361
- ÔÚÏß: 215.2Сʱ
- ³æºÅ: 659094
- ×¢²á: 2008-11-21
- רҵ: ½ðÊô½á¹¹²ÄÁÏ
¡ï ¡ï ¡ï ¡ï ¡ï
maomao1210(½ð±Ò+5,VIP+0):Thanks a lot,.. 3-28 17:58
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
windhair
ͳæ (СÓÐÃûÆø)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 118.2
- Ìû×Ó: 65
- ÔÚÏß: 55·ÖÖÓ
- ³æºÅ: 724436
- ×¢²á: 2009-03-17
- רҵ: Á÷ÌåÁ¦Ñ§
6Â¥2009-04-02 23:33:37














»Ø¸´´ËÂ¥
