±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1014  |  »Ø¸´: 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µÄ»ØÌû

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µÄ»ØÌû
²é¿´È«²¿ 10 ¸ö»Ø´ð

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µÄ»ØÌû

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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 289Çóµ÷¼Á +7 ÐÂʱ´ú²ÄÁÏ 2026-03-27 7/350 2026-03-27 18:08 by arrow8852
[¿¼ÑÐ] Çóµ÷¼Á +4 Áã°Ë# 2026-03-27 4/200 2026-03-27 18:07 by yu221
[¿¼ÑÐ] 328Çóµ÷¼Á +6 àŵεĻù±¾¶¼ 2026-03-27 6/300 2026-03-27 16:49 by sanrepian
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¶û±õ¹¤Òµ´óѧ²ÄÁÏÓ뻯¹¤·½Ïò336·Ö +4 ³½ãå5211314 2026-03-26 4/200 2026-03-27 15:21 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] 279 ·Ö Çóµ÷¼Á +4 ˯¸öºÃ¾õ_16 2026-03-24 4/200 2026-03-27 15:05 by ×íÔÚ·çÀï
[¿¼ÑÐ] 305Çóµ÷¼Á +5 ÍÛ¬¿¨¿â 2026-03-26 5/250 2026-03-27 14:01 by laoshidan
[¿¼ÑÐ] Ò»Ö¾Ô¸»ª¶«Àí¹¤´óѧ081700£¬³õÊÔ·ÖÊý271 +6 kotoko_ik 2026-03-23 7/350 2026-03-27 12:29 by »ÝÖÝÅíÓÚêÌ
[¿¼ÑÐ] 316Çóµ÷¼Á +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[˶²©¼ÒÔ°] ÕÐÊÕÉúÎïѧ/ϸ°ûÉúÎïѧµ÷¼Á +3 IceGuo 2026-03-26 4/200 2026-03-27 05:35 by user003
[¿¼ÑÐ] Ò»Ö¾Ô¸Ö£ÖÝ´óѧ£¬080500ѧ˶£¬×Ü·Ö317·ÖÇóµ÷¼Á +4 ¾Ù¸öÀõ×Óoi 2026-03-24 5/250 2026-03-26 23:15 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 281Çóµ÷¼Á +6 Koxui 2026-03-24 7/350 2026-03-26 15:37 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] ÉúÎï¼¼ÊõÓ빤³Ì +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[¿¼ÑÐ] »¯Ñ§µ÷¼Á +6 yzysaa 2026-03-21 6/300 2026-03-25 09:27 by aa331100
[¿¼ÑÐ] 306Çó0703µ÷¼ÁÒ»Ö¾Ô¸»ªÖÐʦ·¶ +10 Ö½Óãly 2026-03-21 11/550 2026-03-24 17:22 by qingfeng258
[¿¼ÑÐ] 292Çóµ÷¼Á +4 ¶ì¶ì¶ì¶î¶î¶î¶î¶ 2026-03-24 4/200 2026-03-24 16:41 by peike
[¿¼ÑÐ] һ־Ըɽ¶«´óѧҩѧѧ˶Çóµ÷¼Á +3 ¿ª¿ªÐÄÐÄû·³ÄÕ 2026-03-23 4/200 2026-03-24 00:06 by ¿ª¿ªÐÄÐÄû·³ÄÕ
[¿¼ÑÐ] 284Çóµ÷¼Á +3 yanzhixue111 2026-03-23 6/300 2026-03-23 22:58 by pswait
[¿¼ÑÐ] 293Çóµ÷¼Á +3 ÌÎÌÎWjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
[¿¼ÑÐ] 0805²ÄÁÏ320Çóµ÷¼Á +3 ÉÎïÓï 2026-03-20 3/150 2026-03-21 15:46 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 085601µ÷¼Á 358·Ö +3 zzzzggh 2026-03-20 4/200 2026-03-21 10:21 by luoyongfeng
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û