±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 949  |  »Ø¸´: 5

geohhy

Òø³æ (³õÈëÎÄ̳)

[ÇóÖú] fortran ¶¯Ì¬Êý×éÎÊÌâ

ÔÚfortran±à³ÌÖÐÓöµ½Ò»¸ö¶¯Ì¬Êý×éÎÊÌ⣬ºÜÀ§»ó£¬ÇëÇó¸ßÈËÖ¸µã£¡
ÏÂÃæÊDZàµÄ³ÌÐòÀý×Ó£º
program main
implicit none
real(8),allocatable::  y( :, : )
integer(4):: i, j, ierr

i=6000 £¡ÕâÀïÈç¹û¸ÄΪi=10000£¬ÏÂÃæ·´¶ø²»³ö´í£¬ÎªÊ²Ã´£¿ÈçºÎ½â¾öÕâ¸öÎÊÌ⣿
j=600000
allocate(y(i,j),stat=ierr)
if(ierr/=0) then
        write(*,*) ierr
endif

end program main

[ Last edited by geohhy on 2013-4-3 at 08:34 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

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

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
ÎÒÓà gfortran µÄ²âÊÔ½á¹û±íÃ÷£¬ÄãµÄÄǸö×¢ÊÍÀïµÄ˵·¨ÊDz»ÕýÈ·µÄ¡£¹À¼ÆÔ­Òò»¹ÊÇÊý×éÌ«´óÁË¡­¡­
2Â¥2013-04-03 11:38:52
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

geohhy

Òø³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by snoopyzhao at 2013-04-03 11:38:52
ÎÒÓà gfortran µÄ²âÊÔ½á¹û±íÃ÷£¬ÄãµÄÄǸö×¢ÊÍÀïµÄ˵·¨ÊDz»ÕýÈ·µÄ¡£¹À¼ÆÔ­Òò»¹ÊÇÊý×éÌ«´óÁË¡­¡­

ÎÒÔÚWINxp SP3ÏÂÓÃPowerstation4.0±àÒë¼ÆËãµÄ½á¹û¾ÍÊÇÕâÑù
3Â¥2013-04-03 15:38:25
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

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

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

ÒýÓûØÌû:
3Â¥: Originally posted by geohhy at 2013-04-03 15:38:25
ÎÒÔÚWINxp SP3ÏÂÓÃPowerstation4.0±àÒë¼ÆËãµÄ½á¹û¾ÍÊÇÕâÑù...

ierr /= 0 ±íʾûÓа취·ÖÅäÄÚ´æ¡£ÎÒ²»ÏëÐÅ£¬ÄãµÄ i = 6000 ʱ²»ÄÜ·ÖÅ䣬µ« i=10000 È´¿ÉÒÔ¡­¡­

ÄãµÄ»úÆ÷ɶÅäÖã¿
4Â¥2013-04-03 15:48:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

geohhy

Òø³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
4Â¥: Originally posted by snoopyzhao at 2013-04-03 15:48:50
ierr /= 0 ±íʾûÓа취·ÖÅäÄÚ´æ¡£ÎÒ²»ÏëÐÅ£¬ÄãµÄ i = 6000 ʱ²»ÄÜ·ÖÅ䣬µ« i=10000 È´¿ÉÒÔ¡­¡­

ÄãµÄ»úÆ÷ɶÅäÖã¿...

µÄÈ·Èç´Ë¡£

ÎÒÓõÄÊÇX200£¬¶øÇÒÔÚÁíһλÅóÓѵĵçÄÔÉÏÒ²ÊÔ¹ý£¬ÊÇÆ»¹û»ú£¨WIN7ϵͳ£¬Powerstaion£©
5Â¥2013-04-03 15:52:06
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

geohhy

Òø³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
5Â¥: Originally posted by geohhy at 2013-04-03 15:52:06
µÄÈ·Èç´Ë¡£

ÎÒÓõÄÊÇX200£¬¶øÇÒÔÚÁíһλÅóÓѵĵçÄÔÉÏÒ²ÊÔ¹ý£¬ÊÇÆ»¹û»ú£¨WIN7ϵͳ£¬Powerstaion£©...

Áí·Ö±ðÓÃgfortranºÍintelfortran±àÒë¹ý£¬½á¹ûÒ²²»¾¡Ïàͬ£¬ËùÒÔ¾õµÃ·Ç³£Ææ¹Ö£¬ÌØÔÚÕâÀïѰÇó¸ßÈËÖ¸µã£¡
6Â¥2013-04-03 15:54:45
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ geohhy µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 348Çóµ÷¼Á +10 zzzzyk123 2026-04-01 10/500 2026-04-02 16:04 by ÖзÉÔº¿Õ¹ÜѧԺÑ
[¿¼ÑÐ] 326Çóµ÷¼Á +3 áÌáÌ×Ð 2026-04-02 3/150 2026-04-02 14:54 by 1753564080
[¿¼ÑÐ] 309Çóµ÷¼Á +8 ´ô¹½²»ÊÇ´÷·ò 2026-04-02 8/400 2026-04-02 14:30 by oooqiao
[¿¼ÑÐ] 08¹¤¿ÆÇóµ÷¼Á290·Ö +5 1314Åõ»¨ 2026-04-02 8/400 2026-04-02 13:16 by ÇÇßÕßÕßÕ
[¿¼ÑÐ] Çóµ÷¼ÁÍÆ¼ö +3 ÄÏɽÄÏ@ 2026-04-01 3/150 2026-04-02 12:09 by xiaoranmu
[¿¼ÑÐ] 348»·¾³¹¤³Ìµ÷¼Á +3 ÎâÑå׿24k 2026-04-01 3/150 2026-04-02 09:14 by nanaliuyun
[¿¼ÑÐ] 11408 321·ÖÇóµ÷¼Á +3 huchun12138 2026-03-30 4/200 2026-04-01 22:48 by guanxin1001
[¿¼ÑÐ] 290Çóµ÷¼Á +5 dfffsar 2026-03-29 5/250 2026-04-01 19:45 by 6781022
[¿¼ÑÐ] Ò»Ö¾Ô¸ ÄϾ©º½¿Õº½Ìì´óѧ £¬080500²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶ +7 @taotao 2026-03-30 7/350 2026-04-01 14:30 by chenqifeng666
[ÂÛÎÄͶ¸å] chinese chemical lettersÓ¢ÎİæÍ¶¸åÇóÖú 120+4 Yishengeryi 2026-03-30 5/250 2026-04-01 14:11 by ½С¹û»­´ó±ý
[˶²©¼ÒÔ°] ²©Ò»±»ËͳöÁªÅà¸Ð¾õ²»ÊÊÓ¦Ôõô°ì +3 È«´åµÄ¹· 2026-03-31 3/150 2026-04-01 10:44 by 328838485
[¿¼ÑÐ] Ò»Ö¾Ô¸aÇø211£¬085601-307·ÖÇóµ÷¼Á +10 µ³¼ÎºÀ 2026-03-31 23/1150 2026-03-31 18:44 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷µç085401ÊýÒ»Ó¢Ò»299Çóµ÷¼Á Áù¼¶521 +4 °®³Ô´óѼÀæ 2026-03-31 4/200 2026-03-31 11:51 by ²«»÷518
[¿¼ÑÐ] 085701»·¾³¹¤³ÌÇóµ÷¼Á +11 ¶à¾ÃÉϿΠ2026-03-27 12/600 2026-03-30 21:21 by Ñо¿É®µ¼µ¼
[¿¼ÑÐ] 285Çóµ÷¼Á +6 AZMK 2026-03-29 9/450 2026-03-30 21:02 by dophin1985
[¿¼ÑÐ] 279Çóµ÷¼Á +12 jµÄÁ¢·½ 2026-03-29 12/600 2026-03-30 20:30 by dick_runner
[¿¼ÑÐ] 322Çóµ÷¼Á +10 ËÎÃ÷ÐÀ 2026-03-27 10/500 2026-03-30 18:47 by 544594351
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by ÂäÉ˼
[¿¼ÑÐ] 295Çóµ÷¼Á +5 1428151015 2026-03-27 6/300 2026-03-28 04:04 by fmesaito
[¿¼ÑÐ] Ò»Ö¾Ô¸ÉϺ£Àí¹¤ÄÜÔ´¶¯Á¦£¨085800£©310·ÖÇóµ÷¼Á +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by ¸øÄãÄã×¢ÒâÐÝÏ¢
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û