| ²é¿´: 1040 | »Ø¸´: 8 | |||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | |||
| ±¾Ìû²úÉú 1 ¸ö ³ÌÐòÇ¿Ìû £¬µã»÷ÕâÀï½øÐв鿴 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
guangdangгæ (³õÈëÎÄ̳)
|
[½»Á÷]
¡¾ÇóÖú¡¿fortran ±äÁ¿´«µÝµÄÎÊÌâ ÒÑÓÐ1È˲ÎÓë
|
||
|
±äÁ¿µ÷ÓõÄÎÊÌâ ÈçÎÒÔÚÑ»·µ÷ÓÃ×Ó³ÌÐò, do k=1,num ×Ó³ÌÐò enddo ÎÒÏëÔÚÑ»·µÚ10´ÎµÄÇé¿öϰÑ×Ó³ÌÐòÖеÄij¸ö±äÁ¿±£´æµÄÊý¾Ý¶Á³öÀ´,Ò²¾ÍÊÇÔÚ×Ó³ÌÐòÖмӸö¶ÔkµÄÅжÏÌõ¼þ: if k.eq.10,thenµÄÌõ¼þ,¿ÉÊÇÎÒ°ÑkÉèÖÃΪcommon»òÕßÊÇpublic¶¼²»ÐÐ,Ó¦¸ÃÔõô×öÄØ |
» ²ÂÄãϲ»¶
2026Ä껪ÄÏʦ·¶´óѧ»¶Ó»¯Ñ§£¬»¯¹¤£¬ÉúÎÉúÒ½¹¤µÈרҵÓÅÐãѧ×Ó¼ÓÈ룡
ÒѾÓÐ5È˻ظ´
298Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
ÊýÒ»Ó¢Ò»271ר˶£¨085401£©Çóµ÷¼Á£¬¿É¿ç
ÒѾÓÐ8È˻ظ´
295Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
0856Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
²ÄÁÏѧ˶333Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
299Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
Ò»Ö¾Ô¸Ö£ÖÝ´óѧ£¬080500ѧ˶£¬×Ü·Ö317·ÖÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
289Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
070305¸ß·Ö×Ó»¯Ñ§ÓëÎïÀí 304·ÖÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´

figgers
ͳæ (³õÈëÎÄ̳)
- ³ÌÐòÇ¿Ìû: 2
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 147
- Ìû×Ó: 22
- ÔÚÏß: 29·ÖÖÓ
- ³æºÅ: 27477
- ×¢²á: 2003-10-24
- ÐÔ±ð: GG
- רҵ: µç´Å³¡Óëµç·
¡ï ¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
jjdg(½ð±Ò+1):ÐÁ¿àÁË 2010-04-03 21:09
nono2009(½ð±Ò+2, ³ÌÐòÇ¿Ìû+1):¹ÄÀøÓ¦Öú£¡ 2010-04-04 08:25
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
jjdg(½ð±Ò+1):ÐÁ¿àÁË 2010-04-03 21:09
nono2009(½ð±Ò+2, ³ÌÐòÇ¿Ìû+1):¹ÄÀøÓ¦Öú£¡ 2010-04-04 08:25
|
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
maomao1210
½ð³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 5
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ½ð±Ò: 1432.8
- É¢½ð: 242
- ºì»¨: 16
- ɳ·¢: 1
- Ìû×Ó: 991
- ÔÚÏß: 442.1Сʱ
- ³æºÅ: 253215
- ×¢²á: 2006-05-20
- ÐÔ±ð: MM
- רҵ: ¿¼¹ÅÀíÂÛ
¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
Сľ³æ(½ð±Ò+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
maomao1210
½ð³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 5
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ½ð±Ò: 1432.8
- É¢½ð: 242
- ºì»¨: 16
- ɳ·¢: 1
- Ìû×Ó: 991
- ÔÚÏß: 442.1Сʱ
- ³æºÅ: 253215
- ×¢²á: 2006-05-20
- ÐÔ±ð: MM
- רҵ: ¿¼¹ÅÀíÂÛ
¡ï ¡ï ¡ï ¡ï
²¨²»¶¯(½ð±Ò+2,VIP+0):ÐÁ¿à£¡ 11-26 19:13
²¨²»¶¯(½ð±Ò+2,VIP+0):ÐÁ¿à£¡ 11-26 19:13
²¨²»¶¯(½ð±Ò+2,VIP+0):ÐÁ¿à£¡ 11-26 19:13
²¨²»¶¯(½ð±Ò+2,VIP+0):ÐÁ¿à£¡ 11-26 19:13
|
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
guangdang
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 5.8
- Ìû×Ó: 19
- ÔÚÏß: 18.6Сʱ
- ³æºÅ: 892022
- ×¢²á: 2009-11-03
- ÐÔ±ð: GG
¡ï
jjdg(½ð±Ò+1,VIP+0):»¶Óг棡 1-6 02:26
jjdg(½ð±Ò+1,VIP+0):»¶Óг棡 1-6 02:26
|
ÒòΪÎÒÓõÄÊÇImplicit none ¿É²»¿ÉÒÔ¶ÔIere½øÐе¥¶ÀµÄ¶¨ÒåΪintegerÒ²¾ÍÊÇ£º integer Iere |

4Â¥2009-11-26 19:49:55














»Ø¸´´ËÂ¥
20