24СʱÈÈÃŰæ¿éÅÅÐаñ    

Znn3bq.jpeg
²é¿´: 1029  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ²ÄÁÏÏà¹Ø×¨Òµ344Çóµ÷¼ÁË«·Ç¹¤¿ÆÑ§Ð£»ò¿ÎÌâ×é +23 hualkop 2026-04-12 25/1250 2026-04-16 22:12 by SUSE_CL
[¿¼ÑÐ] ¼±Ðèµ÷¼Á +7 ¾ø²»·ÅÆú22 2026-04-15 7/350 2026-04-16 22:09 by SUSE_CL
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÖÐũҵ071010£¬320Çóµ÷¼Á +14 À§À§À§À§À¤À¤ 2026-04-14 16/800 2026-04-16 22:02 by Öí»á·É
[¿¼ÑÐ] »¯Ñ§070300 Çóµ÷¼Á +28 ¹þ¹þ¹þ^_^ 2026-04-12 28/1400 2026-04-16 21:36 by ´óÁ¦Ë®ÊÖÁ¦´óÎÞÇ
[¿¼ÑÐ] ¸÷λÀÏʦºÃ£¬Çóµ÷¼Á£¬±¾¿Æ211£¬Ò»Ö¾Ô¸Ìì½ò´óѧÉúÎïÓëҽҩѧ˶£¬²îÁ½Ãû¼ȡ¡£ +11 ·ÁùÁùjjj 2026-04-13 11/550 2026-04-14 16:01 by zs92450
[¿¼ÑÐ] Ò»Ö¾Ô¸»¦9£¬326ÇóÉúÎïѧµ÷¼Á +10 Áõīī 2026-04-13 10/500 2026-04-14 15:16 by zs92450
[¿¼ÑÐ] ũѧ0904 312Çóµ÷¼Á +4 Say Never 2026-04-11 4/200 2026-04-14 09:10 by zs92450
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó 085600 277 12²Ä¿Æ»ùÇóµ÷¼Á 5+5 chenny174 2026-04-10 37/1850 2026-04-14 07:39 by Abskk
[¿¼ÑÐ] ¿¼ÑÐÇóµ÷¼Á +12 ×ÓľÄÅ 2026-04-12 13/650 2026-04-14 01:19 by Íõ¬Bè±
[¿¼ÑÐ] ÉúÎïѧµ÷¼Á +11 СȽҪŬÁ¦ 2026-04-10 13/650 2026-04-13 11:46 by µç»¯Ñ§¼°´ß»¯
[¿¼ÑÐ] 0854µ÷¼Á +10 ³¤¹­°Á 2026-04-11 11/550 2026-04-13 10:38 by wp06
[¿¼ÑÐ] µ÷¼Á½áÊø +6 floriea 2026-04-12 8/400 2026-04-12 18:13 by zhouxiaoyu
[¿¼ÑÐ] 296Çóµ÷¼Á +14 Íô£¡£¿£¡ 2026-04-10 16/800 2026-04-12 10:48 by zhouyuwinner
[¿¼ÑÐ] 331Çóµ÷¼Á +5 Íõ¹ú˧ 2026-04-11 5/250 2026-04-11 22:56 by Ϫ½§Á÷Ë®
[¿¼ÑÐ] 359Çóµ÷¼Á +5 θ¾·ÂÎÀÛÁË 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
[¿¼ÑÐ] ±¾¿Æ211 ¹¤¿Æ085400 280·ÖÇóµ÷¼Á ¿É¿çרҵ +11 LZH£¨µÈ´ýµ÷¼ÁÖÐ 2026-04-10 11/550 2026-04-11 08:39 by zhq0425
[¿¼ÑÐ] Ò»Ö¾Ô¸±±Àí¹¤298Ó¢Ò»Êý¶þÒÑÉϰ¶£¬¸Ðл¸÷λÀÏʦ +14 Reframe 2026-04-10 16/800 2026-04-10 23:07 by caotw2020
[¿¼ÑÐ] Ò»Ö¾Ô¸¾©Çø985£¬085401£¬Óë±¾¿Æ×¨ÒµÒ»Ö£¬µç×ÓÐÅÏ¢¹¤³Ì£¬ +4 Ñô¹â¿ªÀʵÄÄк¢ 2026-04-10 4/200 2026-04-10 18:27 by shenrf
[¿¼ÑÐ] »úеר368 ÓÐÈ¥´¦Âð +4 ÖÖ´óÊ÷ 2026-04-10 4/200 2026-04-10 15:31 by jiajinhpu
[¿¼ÑÐ] 282£¬µçÆø¹¤³Ìרҵ£¬Çóµ÷¼Á£¬²»Ìôרҵ +9 jggshjkkm 2026-04-10 9/450 2026-04-10 14:55 by ÄæË®³Ë·ç
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û