±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1039  |  »Ø¸´: 8
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£
±¾Ìû²úÉú 1 ¸ö ³ÌÐòÇ¿Ìû £¬µã»÷ÕâÀï½øÐв鿴
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

guangdang

гæ (³õÈëÎÄ̳)

[½»Á÷] ¡¾ÇóÖú¡¿fortran ±äÁ¿´«µÝµÄÎÊÌâ ÒÑÓÐ1È˲ÎÓë

±äÁ¿µ÷ÓõÄÎÊÌâ

ÈçÎÒÔÚÑ­»·µ÷ÓÃ×Ó³ÌÐò,
do k=1,num

×Ó³ÌÐò

enddo

ÎÒÏëÔÚÑ­»·µÚ10´ÎµÄÇé¿öϰÑ×Ó³ÌÐòÖеÄij¸ö±äÁ¿±£´æµÄÊý¾Ý¶Á³öÀ´,Ò²¾ÍÊÇÔÚ×Ó³ÌÐòÖмӸö¶ÔkµÄÅжÏÌõ¼þ: if k.eq.10,thenµÄÌõ¼þ,¿ÉÊÇÎÒ°ÑkÉèÖÃΪcommon»òÕßÊÇpublic¶¼²»ÐÐ,Ó¦¸ÃÔõô×öÄØ
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ŬÁ¦Ñ§Ï°ÖÐ
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

guangdang

гæ (³õÈëÎÄ̳)

¡ï
jjdg(½ð±Ò+1,VIP+0):»¶Ó­Ð³棡 1-6 02:26
ÒýÓûØÌû:
Originally posted by maomao1210 at 2009-11-26 18:36:


      Implicit Real*8(A-H,O-Z)
        Common  Iere  
        Do I=1,30
                    Iere=I
        Call Subemuch
        EndDo
        End

        Subroutine Subemuch
               Implicit Real*8(A-H,O-Z)
        Common  ...

ÒòΪÎÒÓõÄÊÇImplicit  none ¿É²»¿ÉÒÔ¶ÔIere½øÐе¥¶ÀµÄ¶¨ÒåΪintegerÒ²¾ÍÊÇ£º
integer Iere
ŬÁ¦Ñ§Ï°ÖÐ
4Â¥2009-11-26 19:49:55
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 9 ¸ö»Ø´ð

maomao1210

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

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
Implicit Real*8(A-H,O-Z)

        Common  Iere
      
        Do I=1,30
                 Iere=I
        Call Subemuch
        EndDo

        End

        Subroutine Subemuch
      Implicit Real*8(A-H,O-Z)
        Common  Jere
      

      If(Jere.Eq.10) Then
        Write(*,*) 'I am from Emuch'
        Endif
       
        Return
        End
2Â¥2009-11-26 18:35:57
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

maomao1210

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

¡ï ¡ï ¡ï ¡ï
²¨²»¶¯(½ð±Ò+2,VIP+0):ÐÁ¿à£¡ 11-26 19:13
²¨²»¶¯(½ð±Ò+2,VIP+0):ÐÁ¿à£¡ 11-26 19:13
ÒýÓûØÌû:
Originally posted by guangdang at 2009-11-26 18:17:
±äÁ¿µ÷ÓõÄÎÊÌâ

ÈçÎÒÔÚÑ­»·µ÷ÓÃ×Ó³ÌÐò,
do k=1,num

×Ó³ÌÐò

enddo

ÎÒÏëÔÚÑ­»·µÚ10´ÎµÄÇé¿öϰÑ×Ó³ÌÐòÖеÄij¸ö±äÁ¿±£´æµÄÊý¾Ý¶Á³öÀ´,Ò²¾ÍÊÇÔÚ×Ó³ÌÐòÖмӸö¶ÔkµÄÅжÏÌõ¼þ: if k.eq.10,thenµÄÌõ¼þ,¿ÉÊÇÎÒ ...

Implicit Real*8(A-H,O-Z)
        Common  Iere  
        Do I=1,30
                    Iere=I
        Call Subemuch
        EndDo
        End

        Subroutine Subemuch
               Implicit Real*8(A-H,O-Z)
        Common  Jere
                  If(Jere.Eq.10) Then
        Write(*,*) 'I am from Emuch'
        Endif       
        Return
        End
3Â¥2009-11-26 18:36:54
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

nono2009

³¬¼¶°æÖ÷ (ÎÄѧ̩¶·)

No gains, no pains.

ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐãÇø³¤ÓÅÐã°æÖ÷

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+1,VIP+0):ÐÁ¿àÁË£¡ 1-4 21:34
ÒýÓûØÌû:
Originally posted by guangdang at 2009-11-26 19:49:


ÒòΪÎÒÓõÄÊÇImplicit  none ¿É²»¿ÉÒÔ¶ÔIere½øÐе¥¶ÀµÄ¶¨ÒåΪintegerÒ²¾ÍÊÇ£º
integer Iere

I think so.
5Â¥2009-11-26 20:07:28
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] µ÷¼Á310 +6 ÎÂÈáµÄÍí°² 2026-03-25 7/350 2026-03-28 16:04 by qq2000
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by ÂäÉ˼
[¿¼ÑÐ] 085405 ¿¼µÄ11408Çó¸÷λÀÏʦ´ø×ß +3 Qiuѧing 2026-03-28 3/150 2026-03-28 09:19 by ÀֺǺǵÄ×·ÃÎÈË
[¿¼ÑÐ] Çóµ÷¼Á +4 Áã°Ë# 2026-03-27 4/200 2026-03-27 18:07 by yu221
[¿¼ÑÐ] 272Çóµ÷¼Á +7 ½Å»¬µÄÊØ·¨¹«Ãñ 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[¿¼ÑÐ] 0856µ÷¼Á +5 ÇóÇóÈÃÎÒÓÐÊé¶Á° 2026-03-26 6/300 2026-03-27 15:12 by caszguilin
[¿¼ÑÐ] 085601 ²ÄÁϹ¤³Ì 313·Ö Çóµ÷¼Á +5 Ong3 2026-03-27 5/250 2026-03-27 12:24 by goldfish51
[¿¼ÑÐ] Ò»Ö¾Ô¸211£¬335·Ö£¬0856£¬Çóµ÷¼ÁԺУºÍµ¼Ê¦ +4 Çã____Ïô 2026-03-27 5/250 2026-03-27 11:52 by zhshch
[¿¼ÑÐ] 312Çóµ÷¼Á +9 Éϰ¶°ÉZJY 2026-03-22 13/650 2026-03-27 11:24 by sanrepian
[¿¼ÑÐ] ¿¼Ñе÷¼Á +9 СÀ¯ÐÂ±Ê 2026-03-26 9/450 2026-03-27 11:10 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 0703»¯Ñ§338Çóµ÷¼Á£¡ +6 Zuhui0306 2026-03-26 7/350 2026-03-27 10:35 by shangxh
[¿¼ÑÐ] 359Çóµ÷¼Á +4 ÍõÁ˸öéª 2026-03-25 4/200 2026-03-27 08:43 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +8 Æ¥¿Ëi 2026-03-23 8/400 2026-03-27 08:11 by hypershenger
[¿¼ÑÐ] 284Çóµ÷¼Á +11 junqihahaha 2026-03-26 12/600 2026-03-27 04:37 by wxiongid
[¿¼ÑÐ] »¯Ñ§µ÷¼ÁÒ»Ö¾Ô¸ÉϺ£½»Í¨´óѧ336·Ö-±¾¿ÆÉϺ£211 +4 СÓã°®Óлú 2026-03-25 4/200 2026-03-26 10:19 by aa331100
[¿¼ÑÐ] 347Çóµ÷¼Á +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
[¿¼ÑÐ] Ò»Ö¾Ô¸±±»¯315 Çóµ÷¼Á +3 akrrain 2026-03-24 3/150 2026-03-24 19:35 by ÁËÁËÁËÁË¡£¡£
[¿¼ÑÐ] Çóµ÷¼Á +6 ÑÐÑУ¬½Óµç»° 2026-03-24 7/350 2026-03-24 17:01 by barlinike
[¿¼ÑÐ] ²ÄÁÏר˶331Çóµ÷¼Á +4 Ïʵ±Å£ 2026-03-24 4/200 2026-03-24 15:58 by JourneyLucky
[¿¼ÑÐ] 341Çóµ÷¼Á(Ò»Ö¾Ô¸ºþÄÏ´óѧ070300) +5 ·¬ÇÑÍ·--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û