| ²é¿´: 658 | »Ø¸´: 2 | ||||
bian890ͳæ (³õÈëÎÄ̳)
|
[½»Á÷]
¡¾ÇóÖú¡¿INDX = IARGC() CALL GETARG(1,CMONT) ÒÑÓÐ2È˲ÎÓë
|
|
СŮ×Ó¶ÔÓÚFortranÓï·¨²»ÊÇÌ«Á˽â ÇëÎÊ1¡¢ INDX = IARGC() IF (INDX.NE.1) THEN NERRS = 1 WRITE (0,'(A)') 'Just one command line argument allowed' CALL ERROR ('DEFCON',5) ENDIF ÖÐINDX = IARGC()ÊÇʲôÒâ˼£¿ NERRSÊÇFORTRAN×Ô´øµÄÒ»¸ö±äÁ¿É¶µÄÂ𣿠2¡¢ CALL GETARG(1,CMONT) Õâ¾äµÄÒâ˼ÊÇɶ£¿ÓÈÆäÊÇGETARG ÊÇʲôÒâË¼ÄØ£¿ ллºÃÐÄÈËÊ¿ ÍûÖªÇéÕ߸úÌû лл ¼± |
» ÊÕ¼±¾ÌûµÄÌÔÌûר¼ÍƼö
fortranÏà¹Ø |
» ²ÂÄãϲ»¶
332Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
348Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
305Çóµ÷¼Á
ÒѾÓÐ8È˻ظ´
Ò»Ö¾Ô¸±±¾©»¯¹¤´óѧ²ÄÁÏÓ뻯¹¤£¨085600£©296Çóµ÷¼Á
ÒѾÓÐ13È˻ظ´
µ÷¼Á310
ÒѾÓÐ9È˻ظ´
±¾¿ÆË«·Ç²ÄÁÏ£¬¿ç¿¼Ò»Ö¾Ô¸»ªµç085801µçÆø£¬283Çóµ÷¼Á£¬ÈκÎרҵ¶¼¿ÉÒÔ
ÒѾÓÐ8È˻ظ´
µ÷¼ÁÇóԺУÕÐÊÕ
ÒѾÓÐ6È˻ظ´
085600 ²ÄÁÏÓ뻯¹¤ 329·ÖÇóµ÷¼Á
ÒѾÓÐ11È˻ظ´
ÇóÊÕÁô
ÒѾÓÐ3È˻ظ´
0856Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
snoopyzhao
ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)
- ³ÌÐòÇ¿Ìû: 16
- Ó¦Öú: 157 (¸ßÖÐÉú)
- ¹ó±ö: 0.02
- ½ð±Ò: 18844.7
- ºì»¨: 29
- Ìû×Ó: 3803
- ÔÚÏß: 1422.4Сʱ
- ³æºÅ: 183750
- ×¢²á: 2006-02-13
- רҵ: ÎÛȾÉú̬»¯Ñ§
¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+2):лл²ÎÓëÓ¦Öú£¡ 2010-07-16 15:43:58
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+2):лл²ÎÓëÓ¦Öú£¡ 2010-07-16 15:43:58
|
INDX = IARGC() ½« IARGC() Õâ¸öº¯ÊýµÄ½á¹û¸³¸ø INDX NERRS Ö»ÊÇÒ»¸öÆÕͨµÄ±äÁ¿¶øÒÑ£¬²»ÊÇ Fortran ×Ô´øµÄ±äÁ¿¡£ GETARG ºÍÇ°ÃæµÄ IARGC ¶¼ÊÇϵͳµÄº¯Êý£¬Ç°Ò»¸öÊÇ»ñµÃ³ÌÐòºóÃæµÄ²ÎÊý£¬µÚ¶þ¸öÓ¦¸ÃÊÇ»ñµÃ²ÎÊýµÄ¸öÊý£¬¾ßÌå¼Ç²»ÇåÁË¡£ Èç¹ûÔÚ Linux Ï£¬¿ÉÒÔͨ¹ý man À´»ñµÃËüÃÇ µÄÊÖ²áÒ³¡£ µ±È»£¬ÄãÒ²¿ÉÒÔ¿´ÄãËùÓÃµÄ Fortran ϵͳµÄÊֲᣬÀïÃæÓÐÏêϸµÄ½éÉܵġ£ |
2Â¥2010-07-16 13:55:59
bian890
ͳæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 126.8
- ºì»¨: 1
- Ìû×Ó: 19
- ÔÚÏß: 1.7Сʱ
- ³æºÅ: 855180
- ×¢²á: 2009-09-23
- ÐÔ±ð: MM
- רҵ: »·¾³¹¤³Ì
3Â¥2010-07-19 12:57:42














»Ø¸´´ËÂ¥
20