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

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

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

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

jylisace

гæ (³õÈëÎÄ̳)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
nono2009(½ð±Ò+1,VIP+0):лл½»Á÷£¡»¶Ó­³£À´³ÌÐòÈí¼þ°æ¡£ 1-4 12:12
ΪʲôÏÖÔÚ»¹ÒªÓÃÀϵÄÓï·¨¡£½¨ÒéÓÃImplicit none
6Â¥2010-01-04 09:20:54
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

hakekill

ľ³æ (СÓÐÃûÆø)

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+1,VIP+0):лл²ÎÓëÓ¦Öú£¡ 1-4 21:35
ÄãÕâ¸ö¿ÉÒÔÔÚ×Ó³ÌÐòÀïÃæ¼ÓÒ»¸ö¾ßÓÐsaveÊôÐԵıäÁ¿¾Í¿ÉÒÔÁË
7Â¥2010-01-04 16:56:42
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÀÏ»¢´óÍõ

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

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
jjdg(½ð±Ò+1,VIP+0):ÐÁ¿àÁË 1-6 02:27
do k=1,num

×Ó³ÌÐò

enddo

×Ó³ÌÐò¼Ó¸ö²ÎÊý£¬°Ñ K ´«¹ýÈ¥£¬Ò²ÊÇ¿ÉÒԵġ£
8Â¥2010-01-05 21:30:58
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

figgers

Í­³æ (³õÈëÎÄ̳)

¡ï ¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
jjdg(½ð±Ò+1):ÐÁ¿àÁË 2010-04-03 21:09
nono2009(½ð±Ò+2, ³ÌÐòÇ¿Ìû+1):¹ÄÀøÓ¦Öú£¡ 2010-04-04 08:25
ÒýÓûØÌû:
Originally posted by maomao1210 at 2009-11-26 18:35:57:
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
      ...

implicit real + common...ÕâÑùÏÂÈ¥³ÙÔç°ÑbeginnerÃǶ¼ÏÅÅÜÁË...
È«¾Ö±äÁ¿¿ÉÒÔÓÃmoduleÀ´ÊµÏÖ°¡


module global_mod
   implicit none
    public
    integer :: i_global
endmodule global_mod


subroutine main(a,b,c,d,e,f,g)
   use global_mod
   implicit none

   ...
  do i_global=1,num

       call sub_a(x,y)

  enddo
endsubroutine

subroutine  sub_a(xi,yi)
    use global_mod   
    implicit none
    ....
    if(i_global == 100) then
      ....
    endif

endsubroutine

Ò»°ã¶¼ÊǰÑÈ«¾Ö±äÁ¿·ÅÒ»¸öpublic µÄmoduleÀïдÈëÒ»¸öµ¥¶ÀµÄf90ÎļþÖÐ
°Ñ¹¦ÄÜÏà½üµÄ³ÌÐò·âµ½±ðµÄmoduleÖÐÔÚ·ÅÈëµ¥¶ÀµÄf90ÎļþÀÐèÒªÄĸömodule
¾Íµ÷Äĸö£¨use£©, ÿ¸ömodule¶¼ÓÃimplicit noneÈ·±£±äÁ¿ÓÐÏÔÐÔÊýÖµÀàÐÍ£¬Äܲ»ÓÃcommon¾Í²»ÓÃcommon£¬Ò»¶¨²»ÓÃequivalence.

°¦..ÖÐÎĵÄfortran½Ì²Ä¶¼Ì«À㬳ýÁËÄDZ¾Ì¨Íå½ÌÊÚµÄfortran95³ÌÐòÉè¼Æ¡£
Ó¢ÎĵÄfortranÊ飬ÎÒÇ¿ÁÒÍÆ¼öFortran 90 Programming, by T.M.R. Ellis, et. al, ²»¹ýËÆºõûÓÐe°æ£¬ÎÒÒ²»¨ÁËNÔªÂòµÄÖ½°æ¡£

[ Last edited by figgers on 2010-4-3 at 15:51 ]
9Â¥2010-04-03 15:49:08
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ guangdang µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸ÏÃÃÅ´óѧ»¯Ñ§Ñ§Ë¶307Çóµ÷¼Á +10 y7czhao 2026-03-26 10/500 2026-03-28 14:23 by ÌÆãå¶ù
[¿¼ÑÐ] 085405 ¿¼µÄ11408Çó¸÷λÀÏʦ´ø×ß +3 Qiuѧing 2026-03-28 3/150 2026-03-28 09:19 by ÀֺǺǵÄ×·ÃÎÈË
[¿¼ÑÐ] 292Çóµ÷¼Á +14 ¶ì¶ì¶ì¶î¶î¶î¶î¶ 2026-03-25 15/750 2026-03-28 08:45 by WYUMater
[¿¼ÑÐ] 308Çóµ÷¼Á +7 īīĮ 2026-03-27 7/350 2026-03-28 07:43 by ÈÈÇéɳĮ
[¿¼ÑÐ] 086000µ÷¼Á +3 7901117076 2026-03-26 3/150 2026-03-27 21:34 by Jianing_Mi
[¿¼ÑÐ] 272Çóµ÷¼Á +7 ½Å»¬µÄÊØ·¨¹«Ãñ 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[¿¼ÑÐ] ¿¼Ñл¯Ñ§308·ÖÇóµ÷¼Á +10 ÄãºÃÃ÷ÌìÄãºÃ 2026-03-23 12/600 2026-03-27 14:43 by shangxh
[¿¼ÑÐ] 314Çóµ÷¼Á +3 ÏªÔÆçæ 2026-03-26 3/150 2026-03-27 11:20 by sanrepian
[¿¼ÑÐ] µ÷¼Á +3 Àî¼Îͼ¡¤S¡¤Â· 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
[¿¼ÑÐ] 071000ÉúÎïѧÇóµ÷¼Á£¬³õÊԳɼ¨343 +6 ССÌðÃæÍÅ 2026-03-25 6/300 2026-03-26 23:01 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] Ò»Ö¾Ô¸±±»¯Çóµ÷¼Á +3 Jsman 2026-03-22 3/150 2026-03-26 21:06 by ajpv·çÀ×
[¿¼ÑÐ] 325Çóµ÷¼Á +3 Aoyijiang 2026-03-23 3/150 2026-03-26 20:46 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] ×Ü·Ö322ÇóÉúÎïѧ/Éú»¯Óë·Ö×Ó/ÉúÎïÐÅϢѧÏà¹Øµ÷¼Á +5 ÐdzÁuu 2026-03-26 6/300 2026-03-26 19:02 by macy2011
[¿¼ÑÐ] 07»¯Ñ§303Çóµ÷¼Á +5 î£08 2026-03-25 5/250 2026-03-25 22:46 by 418490947
[¿¼ÑÐ] 0854AI CV·½ÏòÕÐÊÕµ÷¼Á +4 ÕÂСÓã567 2026-03-23 4/200 2026-03-25 17:04 by CoderLoser
[¿¼ÑÐ] »·¾³Ñ§Ë¶288Çóµ÷¼Á +8 ƤƤƤ123456 2026-03-22 8/400 2026-03-23 23:47 by ÈÈÇéɳĮ
[¿¼ÑÐ] 341Çóµ÷¼Á(Ò»Ö¾Ô¸ºþÄÏ´óѧ070300) +5 ·¬ÇÑÍ·--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[¿¼ÑÐ] 384Çóµ÷¼Á +3 ×Óϵ²© 2026-03-22 6/300 2026-03-23 21:45 by ×Óϵ²©
[¿¼ÑÐ] 070300£¬Ò»Ö¾Ô¸±±º½320Çóµ÷¼Á +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by ¡£¡£ÌÃÌÃ
[¿¼ÑÐ] ʯºÓ×Ó´óѧ£¨211¡¢Ë«Ò»Á÷£©Ë¶²©Ñо¿Éú³¤ÆÚÕÐÉú¹«¸æ +3 Àî×ÓÄ¿ 2026-03-22 3/150 2026-03-22 21:01 by ÔõôÊÍ»³
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û