±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1036  |  »Ø¸´: 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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 085600£¬×¨Òµ¿Î»¯¹¤Ô­Àí£¬321·ÖÇóµ÷¼Á +3 ´ó²öС×Ó 2026-03-28 3/150 2026-03-28 20:10 by wxiongid
[¿¼ÑÐ] 321Çóµ÷¼Á +6 è±Óñ~~ 2026-03-25 7/350 2026-03-28 17:48 by è±Óñ~~
[¿¼ÑÐ] µ÷¼ÁÇóԺУÕÐÊÕ +4 º×¾¨¸ë 2026-03-28 4/200 2026-03-28 13:38 by ÌÆãå¶ù
[¿¼ÑÐ] 266·Ö£¬Çó²ÄÁÏÒ±½ðÄÜÔ´»¯¹¤µÈµ÷¼Á +7 ÍÛºôºßºôºß 2026-03-27 9/450 2026-03-28 12:22 by zllcz
[¿¼ÑÐ] 081200-314 +3 LILIQQ 2026-03-27 4/200 2026-03-28 09:41 by ±£»¤µØÇòÄãÎÒ×öÆ
[¿¼ÑÐ] ¿¼Ñл¯Ñ§308·ÖÇóµ÷¼Á +10 ÄãºÃÃ÷ÌìÄãºÃ 2026-03-23 12/600 2026-03-27 14:43 by shangxh
[¿¼ÑÐ] ¿¼Ñе÷¼Á +10 ºôºô£¿~+123456 2026-03-24 10/500 2026-03-27 11:46 by wangjy2002
[˶²©¼ÒÔ°] ÕÐÊÕÉúÎïѧ/ϸ°ûÉúÎïѧµ÷¼Á +3 IceGuo 2026-03-26 4/200 2026-03-27 05:35 by user003
[¿¼ÑÐ] 317Çóµ÷¼Á +7 µ°»ÆÏÌÈâôÕ 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[¿¼ÑÐ] µ÷¼ÁÇóÊÕÁô +7 ¹ûÈ»ÓÐÎÒ 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[¿¼ÑÐ] 086000ÉúÎïÓëÒ½Ò©292Çóµ÷¼Á +6 СС³ÂСС 2026-03-22 9/450 2026-03-26 15:58 by dick_runner
[¿¼ÑÐ] Ò»Ö¾Ô¸ ÄϾ©Óʵç´óѧ 288·Ö ²ÄÁÏ¿¼ÑÐ Çóµ÷¼Á +3 jl0720 2026-03-26 3/150 2026-03-26 13:39 by zzll406
[¿¼ÑÐ] ×Ü·Ö293Çóµ÷¼Á +6 ¼ÓÒ»Ò»¾Å 2026-03-25 8/400 2026-03-26 13:30 by yujianx
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó£¬085400£¬320£¬Çóµ÷¼Á +4 gdlf9999 2026-03-24 4/200 2026-03-25 23:01 by boxking200
[¿¼ÑÐ] 296Çóµ÷¼Á +4 Íô£¡£¿£¡ 2026-03-25 7/350 2026-03-25 16:41 by Íô£¡£¿£¡
[¿¼ÑÐ] 285Çóµ÷¼Á +3 AZMK 2026-03-24 3/150 2026-03-25 12:23 by userper
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +3 iwinso 2026-03-23 3/150 2026-03-25 11:29 by greychen00
[¿¼ÑÐ] һ־Ըɽ¶«´óѧҩѧѧ˶Çóµ÷¼Á +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
[ÂÛÎÄͶ¸å] ¼±·¢ºËÐÄÆÚ¿¯ÂÛÎÄ +3 ÏÍ´ïÎʽò 2026-03-23 5/250 2026-03-23 17:13 by ÃÃ×Ó²»ºÃÈÇ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û