Znn3bq.jpeg
²é¿´: 1034  |  »Ø¸´: 9

astringent

Í­³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿ÕâÑùµ÷ÓÃ×Ó³ÌÐò¿ÉÒÔÂ𣿠ÒÑÓÐ8È˲ÎÓë

ÎÒÔÚÖ÷³ÌÐòµ÷ÓÃ×Ó³ÌÐòtest1£¨a1£©£¬È»ºóÔÙ×Ó³ÌÐòtest1Öе÷ÓÃ×Ó³ÌÐòtest2£¨a1£©£¬ÈçÏÂËùʾ£º
program main
-----
integer  a1
call test1(a1)
if(a1=1) then
---
end if
end

subroutine test1(a1)
integer a1
a1=0
call test2(a1)
if (a1=1) then
----
return
end test1

subroutine test2(a1)
integer a1
a1=0
if (Ìõ¼þ³ÉÁ¢) then
a1=1
endif
return
end
»Ø¸´´ËÂ¥

» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

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

coolrainbow

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

δÀ´¹ú¼Ò¶³Á¹

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
nono2009(½ð±Ò+1):¹ÄÀøÓ¦Öú 2010-11-17 10:14:24
Ê×ÏȸæËßÄã´ð°¸£º¿ÉÒÔ

Æä´Î¸æËßÄ㣺ÄãÍêÈ«¿ÉÒÔ×Ô¼ºÊÔÊÔ¾ÍÖªµÀÁË£¬²»ÓÃÒ»·ÖÖÓµÄʱ¼ä£¬ºÎ±ØÒªÎÊÄØ£¬±à³ÌÓкܴ󲿷ֹ¤×÷ÊÇÒªÊԵġ£µ±³õÎÒÃDZàд¶àºË³ÌÐòºÍµ÷ÓÃBLASµÄʱºò£¬¸ù±¾Ã»ÓÐÎĵµ£¬ÍêÈ«ÊÇÒ»¸ö¸öÊÔ³öÀ´ÔõôÓõÄ
¼¼Êõ²©¿Í£ºhttp://hi.baidu.com/coolrainbow/blog
2Â¥2010-11-16 11:17:38
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

astringent

Í­³æ (ÖøÃûдÊÖ)

ÒýÓûØÌû:
Originally posted by coolrainbow at 2010-11-16 11:17:38:
Ê×ÏȸæËßÄã´ð°¸£º¿ÉÒÔ

Æä´Î¸æËßÄ㣺ÄãÍêÈ«¿ÉÒÔ×Ô¼ºÊÔÊÔ¾ÍÖªµÀÁË£¬²»ÓÃÒ»·ÖÖÓµÄʱ¼ä£¬ºÎ±ØÒªÎÊÄØ£¬±à³ÌÓкܴ󲿷ֹ¤×÷ÊÇÒªÊԵġ£µ±³õÎÒÃDZàд¶àºË³ÌÐòºÍµ÷ÓÃBLASµÄʱºò£¬¸ù±¾Ã»ÓÐÎĵµ£¬ÍêÈ«ÊÇÒ»¸ö¸öÊÔ³öÀ´ÔõôÓõÄ

ÎÒ¸Õѧfortran£¬´¦ÓÚÃÔã״̬£¬ËùÒÔ¾ÍÅÂÔÚ³ÌÐòÔËÐÐÍùµ÷ÓóÌÐò¶Ë·µÖµµÄʱºò³ö´í£¬±Ï¾¹ÊÇÔÚ¼ÆËã»úÄÚ²¿£¬ÈË¿´²»µ½¡£±¾È˵ÄÎÊÌâÓеã²Ë£¬Çë¶à°üº­
3Â¥2010-11-17 00:18:04
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

gd88

½ð³æ (СÓÐÃûÆø)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
nono2009(½ð±Ò+1):¹ÄÀøÓ¦Öú 2010-11-17 10:14:37
ÒýÓûØÌû:
Originally posted by astringent at 2010-11-17 00:18:04:

ÎÒ¸Õѧfortran£¬´¦ÓÚÃÔã״̬£¬ËùÒÔ¾ÍÅÂÔÚ³ÌÐòÔËÐÐÍùµ÷ÓóÌÐò¶Ë·µÖµµÄʱºò³ö´í£¬±Ï¾¹ÊÇÔÚ¼ÆËã»úÄÚ²¿£¬ÈË¿´²»µ½¡£±¾È˵ÄÎÊÌâÓеã²Ë£¬Çë¶à°üº­

¶î......
³ÌÐò²»Êǵ÷ÊÔ³öÀ´µÄÂ𣿸ù¾Ý´íÎóÌáʾ¸Ä¾ÍÐÐÁË¡£

Áí£¬Èç¹ûµ£ÐĵÄÊǾ«¶ÈÎÊÌ⣬ÄÇÒò¸ÃÈ¥×¢ÒâÊý¾ÝµÄÀàÐÍ¡£
4Â¥2010-11-17 01:50:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

coolrainbow

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

δÀ´¹ú¼Ò¶³Á¹

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÒýÓûØÌû:
Originally posted by astringent at 2010-11-17 00:18:04:

ÎÒ¸Õѧfortran£¬´¦ÓÚÃÔã״̬£¬ËùÒÔ¾ÍÅÂÔÚ³ÌÐòÔËÐÐÍùµ÷ÓóÌÐò¶Ë·µÖµµÄʱºò³ö´í£¬±Ï¾¹ÊÇÔÚ¼ÆËã»úÄÚ²¿£¬ÈË¿´²»µ½¡£±¾È˵ÄÎÊÌâÓеã²Ë£¬Çë¶à°üº­

¸Ï¿ìѧѧ¡°´ò×®¡±µ÷ÊÔÈ¥£¬¼ÆËã»úÄÚ²¿ÕÕÑù¿´~
¼¼Êõ²©¿Í£ºhttp://hi.baidu.com/coolrainbow/blog
5Â¥2010-11-17 08:20:21
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

cean

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

ŒÅÉþÒ»Ìõ

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
nono2009(½ð±Ò+1):¹ÄÀøÓ¦Öú£¬»¶Ó­³£À´½»Á÷ 2010-11-21 07:14:10
±à³Ì£¬µ÷ÊÔ£¬Ö±µ½µ÷ͨ¡£

д³öÀ´£¬±àÒë¿´¿´£¬Óдí¸Ä¡£Ã»´íÔËÐУ¬¿´½á¹û¶Ô²»¶Ô¡£²»¶ÔÔٸġ£

¾ÍÊÇÕâô¼òµ¥¡£
To do great work, you have to have a pure mind.
6Â¥2010-11-20 20:34:53
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

0702wuyan

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

±¾ÌûÄÚÈݱ»ÆÁ±Î

7Â¥2010-11-21 10:34:40
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Jeydragon

ľ³æ (ÕýʽдÊÖ)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+1):»¶Ó­³£À´³ÌÐòÓïÑ԰棡 2010-12-20 20:19:32
ºÃ¶à»°¸Ð¾õ×Ô¼º¾­Àú¹ýÁ˲ŸоõÈÝÒ×£¬¸ßÊÖ¸Õ¿ªÊ¼Ôõô¹ýÀ´µÄ£¿
Óûº£³Á¸¡ÃûÀûÕù£¬Ê¯¹âµç»ð²½´ËÉú£»·ç³¾ÇéÊ»Ӳ»¾¡£¬¹ÛÊÀ²»Ð¦ÊdzÕÈË¡£
8Â¥2010-12-19 22:13:51
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

a449044676

гæ (³õÈëÎÄ̳)

¡ï
ËÍÏÊ»¨Ò»¶ä
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-11-29 01:36:39
ÕâʲôÒâ˼£¿
9Â¥2011-11-27 15:52:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

С×Ówx

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

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-11-29 01:36:32
¿ÉÒԵĠ   ÎÒ¾­³£ÕâÑù¸ÉµÄ
10Â¥2011-11-28 21:53:29
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ astringent µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0831ÉúÒ½¹¤µÚÒ»ÂÖµ÷¼Áʧ°ÜÇóÖú +14 СÐÜî£î£_s 2026-04-11 18/900 2026-04-16 20:41 by lpl364211
[¿¼ÑÐ] 290Çóµ÷¼Á +23 luoziheng 2026-04-10 25/1250 2026-04-16 17:25 by ±ùÑ©Óö¼ûÖí
[¿¼ÑÐ] ³õÊÔ324 ÖÐҩѧ Ò»Ö¾Ô¸ÌìÖÐÒ½ Çóµ÷¼Á +4 ÀîµÄLucky 2026-04-10 4/200 2026-04-16 09:22 by fqwang
[¿¼ÑÐ] 279ѧ˶ʳƷרҵÇóµ÷¼ÁԺУ 20+7 ¹Â¶ÀµÄÀǰ®³ÔÑò 2026-04-12 29/1450 2026-04-16 09:00 by screening
[¿¼ÑÐ] Çóµ÷¼ÁѧУ +14 ²»»á³ÔÈâ 2026-04-13 16/800 2026-04-15 21:59 by noqvsozv
[¿¼ÑÐ] Çóµ÷¼Á +11 СÄô°®Ñ§Ï° 2026-04-11 15/750 2026-04-15 21:57 by noqvsozv
[¿¼ÑÐ] 297¹¤¿Æµ÷¼Á? +14 ºÓÄÏũҵ´óѧ-ÄÜ 2026-04-13 15/750 2026-04-15 13:25 by ºÚ¿Æ¼¼¿óÒµ
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +21 »ý¼«ÏòÉÏ£» 2026-04-10 23/1150 2026-04-15 12:50 by Î÷±±Íû¡ª·çɳ
[¿¼ÑÐ] 211±¾¿Æ²ÄÁÏ»¯¹¤Çóµ÷¼Á +19 YHLAH 2026-04-11 23/1150 2026-04-14 22:25 by fenglj492
[½Ìʦ֮¼Ò] ת³¤Æ¸ÁË +7 ¼òµ¥»¯xn 2026-04-13 7/350 2026-04-14 14:50 by xindong
[¿¼ÑÐ] Çóµ÷¼Á +16 Ñ©·ê¶¬ 2026-04-10 16/800 2026-04-14 14:27 by ÄæË®³Ë·ç
[¿¼ÑÐ] 105500ҩѧÇóµ÷¼Á +4 x_skys 2026-04-12 4/200 2026-04-14 13:37 by rndfc
[¿¼ÑÐ] ũѧ0904 312Çóµ÷¼Á +4 Say Never 2026-04-11 4/200 2026-04-14 09:10 by zs92450
[¿¼ÑÐ] Çóµ÷¼Á +3 ÎÒ°®¸ßÊý¸ßÊý°®Î 2026-04-12 3/150 2026-04-14 01:00 by Íõ¬Bè±
[¿¼ÑÐ] 290Çóµ÷¼Á +18 ¿Â»´È» 2026-04-12 20/1000 2026-04-13 12:56 by cyh¡ª315
[¿¼ÑÐ] 0854µ÷¼Á +10 ³¤¹­°Á 2026-04-11 11/550 2026-04-13 10:38 by wp06
[¿¼ÑÐ] Ò»Ö¾Ô¸Õã´óÉúÎï325·ÖÇóµ÷¼Á +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[½Ìʦ֮¼Ò] ɽ¶«Ë«·ÇԺУ¿¼ºË³¬¼¶ÎÞµ×Ïߣ¬Áìµ¼ÐÒÔÖÀÖ»ö£¬½ÌʦÔâÑê¿Ö +3 qut2026 2026-04-11 7/350 2026-04-12 20:24 by qut2026
[¿¼ÑÐ] µ÷¼Á½áÊø +6 floriea 2026-04-12 8/400 2026-04-12 18:13 by zhouxiaoyu
[¿¼ÑÐ] 295·ÖÇóµ÷¼Á +13 ?ÒªÉϰ¶? 2026-04-10 13/650 2026-04-12 15:37 by laoshidan
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û