±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1042  |  »Ø¸´: 13
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

Íü³¾Ìì¿Õ

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

[½»Á÷] ¡¾ÇóÖú¡¿¹ØÓÚfortran±à³ÌµÄ

ÕâÊÇÎÒÓÐfortran±àдµÄÒ»¸ö³ÌÐò£¬¾ÍÊÇÖ´Ðв»³öÀ´£¬ÇëÄÄλ¸ßÊÖÖ¸µãÒ»ÏÂÊÇÄǸöµØ·½³ö´íÁË£¬ÀÏÊÇÌáʾÓÐÒ»¸ö´íÎó
         PROGRAM
         SUBROUTINE FAC(I)
         COMMON RO(0:49)
         RO(0)=1
         DO 1 I1=1,I
         RO(I1)=RO(I1-1)*I1
1       CONTINUE
       RETURN
         END
c
лл£¡

[ Last edited by Íü³¾Ìì¿Õ on 2009-2-9 at 17:20 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

¿ìÀÖÉú»î£¬¸Ð¶÷£¡
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

holiday

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

ÀæÔ°Ô°³¤

I¶¨ÒåÁËô£¿
×Ó·ÇÓ㣬°²Ö®ÓãÖ®ÀÖ£¿
2Â¥2009-02-09 16:58:00
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lianghust

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

ÕâÊÇÖ÷³ÌÐò»¹ÊÇ×Ó³ÌÐò£¿£¿Ã»¿´³öÀ´
3Â¥2009-02-09 17:01:35
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Íü³¾Ìì¿Õ

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

ÕâÊÇÒ»¸ö×Ó³ÌÐò£¬ÔÚÔËÐеÄʱºò×ÜÊÇ»á³öÏÖ£º
dfor.lib(DFORMAIN.OBJ) : error LNK2001: unresolved external symbol _MAIN__
Debug/1.1.exe : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.

1.1.exe - 2 error(s), 0 warning(s)
²»ÖªµÀÊÇʲôÒâ˼£¬¸ÃÈçºÎÐÞ¸ÄÄØ£¿Ð»Ð»
¿ìÀÖÉú»î£¬¸Ð¶÷£¡
4Â¥2009-02-09 17:29:43
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Íü³¾Ìì¿Õ

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

IûÓж¨Òå
ÒªÈçºÎ¶¨ÒåÄØ£¿
¿ìÀÖÉú»î£¬¸Ð¶÷£¡
5Â¥2009-02-09 17:31:48
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

holiday

Ìú¸Ëľ³æ (ÕýʽдÊÖ)

ÀæÔ°Ô°³¤

¡ï
musi429(½ð±Ò+1,VIP+0):¶àл½»Á÷~ 2-18 01:01
ÒýÓûØÌû:
Originally posted by Íü³¾Ìì¿Õ at 2009-2-9 17:31:
IûÓж¨Òå
ÒªÈçºÎ¶¨ÒåÄØ£¿

ÄãÆðÂëµÃ¸æËßÈ˼ÒIµÄ·¶Î§ÊǶàÉÙ°¡
Òª²»£¬Ôõôѭ»·
×Ó·ÇÓ㣬°²Ö®ÓãÖ®ÀÖ£¿
6Â¥2009-02-09 17:48:40
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

СС³æ³æ5591

Í­³æ (СÓÐÃûÆø)

¡ï
musi429(½ð±Ò+1,VIP+0):¶àлÚÀ½»Á÷~ 2-18 01:02
×Ó³ÌÐòÒªÔËÐÐÒ²µÃ¼Ó¸ömainÓï¾ä°É,²»È»ÔËÐв»ÁË
7Â¥2009-02-09 18:58:45
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

maomao1210

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

¡ï ¡ï ¡ï
musi429(½ð±Ò+3,VIP+0):¶àл½»Á÷~ 2-18 01:02
SUBROUTINE FAC(I)
        IMPLICIT REAL*8(A-H,O-Z)
         COMMON RO(0:49)
         RO(0)=1
         DO 1 I1=1,I
         RO(I1)=RO(I1-1)*I1
1       CONTINUE
       RETURN
         END
È¥µôprogram¾ÍÐÐÁË¡£¡£¡£²»¹ýÓÐЩ±äÁ¿ÄãûÓÐÉùÃ÷¡£ÎÒ¸øÄã²¹ÉÏÁË¡£
8Â¥2009-02-17 15:28:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

quantumfang

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

Сľ³æÖÐÒ½Ñо¿ÔºÔº³¤

¡ï ¡ï
musi429(½ð±Ò+2,VIP+0):¶àл½»Á÷~ 2-18 01:03
¶ÔÓÚPROGRAM ºÍ SUBROUTINE Á½¸ö¹Ø¼ü´Ê£¬¶þÕß²»ÄÜÔÚͬһ¸ö¹ý³ÌÀïÃæÍ¬Ê±´æÔÚ
»òÕßÊÇPROGRAM£¬»òÕßÊÇSUBROUTINE£¬ ¶øÇÒ£¬PROGRAMÒªÓиöÃû×Ö£¬ÀýÈç
PROGRAM portal
IMPLICIT none
return
end PROGRAM portal

Óï·¨×îºÃÑϽû
ÀýÈ磺×îºóÒ»ÐÐEND½áÊøÊ²Ã´£¿Èç¹ûÉæ¼°µ½f90 moduleÓ÷¨Õâ»á³öÎÊÌâ

ÌᳫʹÓÃf90·½Ê½¡£
ÀýÈ磺
DO I1=1,I
         RO(I1)=RO(I1-1)*I1
enddo

Òþº¬±äÁ¿ÀàÐͲ»±»ÍƼö¡£

¾¡¹Üf77µÄ´úÂë¿ÉÄÜ»á±Èf90µÄ¿ìÄÇôһµãµã£¬µ«ÊÇf77ºÜÑϸñ¡£f90³ýÁË×ÔÓÉÖ®Í⣬»¹¼ÓÈëÁ˺ܶàÊʺϲ¢ÐеÄÌØÐÔ
9Â¥2009-02-18 00:19:40
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

argo

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)

ÉÏÉÆÈôË®

ÒýÓûØÌû:
Originally posted by quantumfang at 2009-2-18 00:19:
¶ÔÓÚPROGRAM ºÍ SUBROUTINE Á½¸ö¹Ø¼ü´Ê£¬¶þÕß²»ÄÜÔÚͬһ¸ö¹ý³ÌÀïÃæÍ¬Ê±´æÔÚ
»òÕßÊÇPROGRAM£¬»òÕßÊÇSUBROUTINE£¬ ¶øÇÒ£¬PROGRAMÒªÓиöÃû×Ö£¬ÀýÈç
PROGRAM portal
IMPLICIT none
return
end PROGRAM portal

...

×îºóÒ»ÐÐENDÊÇSUBROUTINE½áÊøÓõÄѽ
¾ÓÉÆµØ£¬ÐÄÉÆÔ¨£¬ÓëÉÆÈÊ£¬ÑÔÉÆÐÅ£¬ÕýÉÆÖΣ¬ÊÂÉÆÄÜ£¬¶¯ÉÆÊ±¡£
10Â¥2009-02-18 09:30:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ Íü³¾Ìì¿Õ µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 26¿¼Ñе÷¼Á0710 0860 +3 ²¹²¹²»²¹ 2026-04-03 3/150 2026-04-03 19:29 by СÄк¢0911
[¿¼ÑÐ] 301Çóµ÷¼Á +15 ÂæÍÕÄÐÈË 2026-04-02 15/750 2026-04-03 18:26 by lsÁõ˧
[¿¼ÑÐ] 285Çóµ÷¼Á +5 AZMK 2026-04-03 8/400 2026-04-03 18:17 by AZMK
[¿¼ÑÐ] Ò»Ö¾Ô¸0817»¯Ñ§¹¤³ÌÓë¼¼Êõ£¬Çóµ÷¼Á +17 ÎÒ²»ÊÇÖ»Òò 2026-04-02 19/950 2026-04-03 17:08 by lijunpoly
[¿¼ÑÐ] 0710ÉúÎïѧ336·ÖÇóµ÷¼Á +4 kiyy 2026-04-01 4/200 2026-04-03 17:07 by °ÙÁéͯ888
[¿¼ÑÐ] ¿¼Ñе÷¼Á +8 ²»°®ºÈÒûÁÏ 2026-04-03 8/400 2026-04-03 16:40 by Mistake-J
[¿¼ÑÐ] 320Çóµ÷¼Á +3 ũҵ¹¤³ÌÓëÐÅÏ¢¼ 2026-04-03 3/150 2026-04-03 11:40 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] ÄÜÔ´¶¯Á¦ µ÷¼Á +3 ²»ÆÆ²»Á¢0 2026-04-02 3/150 2026-04-02 12:46 by ffffjjjj
[¿¼ÑÐ] 085601Ò»Ö¾Ô¸ÖÐɽ´óѧÉîÛÚ²ÄÁϹ¤³Ì330Çóµ÷¼Á +8 pipiver 2026-03-30 8/400 2026-04-02 12:01 by ms629
[¿¼ÑÐ] ¿¼Ñе÷¼Á0702 +3 ÷×ÓζÍíϼ 2026-03-28 3/150 2026-04-02 10:10 by jp9609
[¿¼ÑÐ] 266Çóµ÷¼Á +4 ѧԱ97LZgn 2026-04-02 4/200 2026-04-02 09:52 by yulian1987
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +12 Ò»ÑùYWY 2026-04-01 12/600 2026-04-02 09:15 by olim
[¿¼ÑÐ] 0817»¯¹¤Ñ§Ë¶µ÷¼Á +11 ŬÁ¦Éϰ¶ÖУ¡ 2026-03-31 11/550 2026-04-01 20:30 by Àµ´ºÑÞ
[¿¼ÑÐ] »·¾³¹¤³Ìµ÷¼Á +9 hyzzzzzzz. 2026-04-01 9/450 2026-04-01 14:20 by salamander`
[¿¼ÑÐ] »¯Ñ§0703 µ÷¼Á 306·Ö Ò»Ö¾Ô¸211 +12 26ÒªÉϰ¶ 2026-03-28 12/600 2026-04-01 11:10 by chemdavid
[¿¼ÑÐ] ÍÁľ304Çóµ÷¼Á +3 ÍÃͻͻͻ£¬ 2026-03-31 3/150 2026-04-01 09:42 by JourneyLucky
[¿¼ÑÐ] ¿¼Ñе÷¼Á +9 СÀ¯ÐÂ±Ê 2026-03-29 10/500 2026-03-31 19:52 by Dyhoer
[¿¼ÑÐ] Çóµ÷¼Á +8 11ggg 2026-03-30 8/400 2026-03-31 13:56 by nanaliuyun
[¿¼ÑÐ] 11408×Ü·Ö309£¬Ò»Ö¾Ô¸¶«ÄÏ´óѧÇóµ÷¼Á£¬²»Ìôרҵ +5 Ì츳´øµ½THU 2026-03-29 6/300 2026-03-30 20:49 by dick_runner
[¿¼ÑÐ] Çóµ÷¼Á +7 Çà´º²ÃΪÈý½Ø 2026-03-29 7/350 2026-03-30 13:14 by laoshidan
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û