±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 2665  |  »Ø¸´: 12
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

qingkonggzc

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

[½»Á÷] fortran¶¯Ì¬Êý×é´óС·ÖÅäÎÊÌ⣨allocatable£©£¿ ÒÑÓÐ2È˲ÎÓë

¸÷λ´óÉñ£¬ÎÒ¶¨ÒåÁËÒ»¸ö¶¯Ì¬Êý×étype(sta_information),allocatable::sta_info(£¬ÔÚ¸østa_info·ÖÅä´óСµÄʱºòÓöµ½ÁËÎÊÌ⣬ÎÒÓÐÒ»¸öÑ­»·£¬ÏëÈÃÕâ¸öÊý×éµÄ´óÐ¡Ëæ×ÅÑ­»·±ä»¯¿ÉÒÔÂ𣿻¹ÊDZØÐëÒª¿ªÊ¼Ê±¾ÍÖ¸¶¨Ò»¸ö½Ï´óµÄÄÜ·ÅÏÂËùÓÐÊý¾Ý/×Ö·û´®µÄÊý×飿ÒòΪÎÒ°ÑËùÓÐÊý¾Ý·Å½øÈ¥Ö®ºóÒª½øÐдÓAµ½ZµÄÅÅÐò£¬Èç¹ûÊý×éÌ«´óÓпյĻ᲻»áÓ°ÏìÅÅÐò£¿
¾ÍÊǵÚÒ»¸öÑ­»·´óС·ÖÅä55£¬µ½µÚ¶þ¸öÑ­»·µÄʱºòÈÃËû´óС±ä³É100£¬µÚÈý¸öÑ­»·µÄʱºò´óС±ä³É200£¨Ò²¾ÍÊÇ·Ö±ð²úÉú55,45,100¸öÊý¾Ý£©£¬ÒòΪ²»ÖªµÀÊý¾Ý×ÜÁ¿£¬²»Ïë¸Õ¿ªÊ¼¾Í°Ñ´óСÉèÖõıȽϴ󣬱ÈÈçallocate(sta_info(1000))µÈ£¬ÇëÎÊÕâ¸ö¿ÉÒÔÈçºÎ´¦Àí£¬Ð»Ð»~~~
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

ä±¾£

ľ³æ (ÕýʽдÊÖ)

¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÒýÓûØÌû:
7Â¥: Originally posted by qingkonggzc at 2015-05-28 09:48:17
ÄãºÃ£¬ÎÒ»¹ÊÇÓе㲻Ã÷°×Ö»¶Ô1~nºÅÔªËØ½øÐÐÅÅÐòµÄÒâ˼£¬ËäÈ»ÎÒÏëÒªµÄÊÇÕâ¸ö½á¹û£¬ÊǶÔnºÅÔªËØÅÅÐòÖ®ºóзŵ½Ò»¸öÊý×éÀïÃæ»¹ÊÇÔÚÔ­À´µÄÊý×éÀïÃæ£¬×îºóÃæµÄ»¹Êǿգ¿
allocate(sta_info(0:1000))
sta_info=-10000    ...

¼Ç¼´óСµÄsta_info(0)¿ÉÒÔ¶¯Ì¬»¯£¬Ð´ÐÂÊý¾Ýʱ£¬´Ósta_info(0)Î»ÔªËØ¿ªÊ¼Ð´¾ÍÐÐÁË£¬ÀýÈçÄãÒªÔÚÊý×éβ²¿Ð´Èë45¸öÐÂÊý¾Ýʱ£¬¿ÉÒÔÕâô²Ù×÷£º

do i=1,45   !45ΪÄãҪдÈëµÄÐÂÊý¾Ý¸öÊý
     sta_info(0)=sta_info(0)+1
     sta_info(sta_info(0))=....     !ÔÚÕâÀïдÈëÐÂÊý¾Ý
enddo
Ñ­»·½áÊøÊ±£¬ÐµÄÊý¾Ý¶¼´¢´æÔÚÊý×éµÄβ²¿£¬sta_info(0)´ÓÔ­À´µÄ55±äΪÁË100
9Â¥2015-05-28 11:45:15
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 13 ¸ö»Ø´ð

ä±¾£

ľ³æ (ÕýʽдÊÖ)

¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
ÎÒÒ²³£Óöµ½ÕâÑùµÄÎÊÌ⣬һ°ãÎÒÊÇͨ¹ýÒÔÏ·½°¸½â¾öµÄ¡£
¶¨ÒåÒ»¸öºÜ´óµÄÊý×飬Èçsta_info(0:1000)¡£
Ö®ËùÒÔ¶¨Òå³Ésta_info(0:1000)¶ø·Çsta_info(1:1000)£¬²¢²»ÊÇÒòΪÎÒϰ¹ßÁËCÓïÑÔÀïµÄÊý×éĬÈÏϱê´Ó0¿ªÊ¼¡£Êµ¼ÊÉÏ£¬ÕâÀïµÄsta_info(0)ºÍÆäËûÔªËØ²»Ò»Ñù£¬ËüÊÇÓÃÀ´¼Ç¼Õû¸öÊý×éµÄÓÐЧ´óСµÄ¡£
ÀýÈ磬ÎÒÃÇÔÚµÚÒ»¸öÑ­»·¸øÔªËØ0:55¸³Öµ£¬ÆäËûµÄÔªËØÓò»µ½£¬¿ÉÒÔÕâôʵÏÖ£º
allocate(sta_info(0:1000))
sta_info=-10000                   !³õʼ»¯ÎªÒ»¸ö²»³£¼ûµÄÊý£¬·½±ãµ÷ÊÔ
sta_info(0)=55                     !È·¶¨ÄãÐèÒªµÄÊý×é´óС
do i=1,sta_info(0)
     sta_info(i)=.....
enddo

¼òµ¥À´Ëµ£¬¾ÍÊÇÏÈ·ÖÅä×ã¹»µÄ´óС£¬µ«ÁíÍⶨÒåÒ»¸ö±äÁ¿À´ÃèÊöËüµÄʵ¼Ê´óС¡£ÕâÑùÒ»À´±ÜÃâÁËÊý×é´óС±ä»¯µÄʱºò£¬ÐèҪƵ·±µÄallocateºÍdeallocate¡£ÁíÒ»·½ÃæÓÖ¿ÉÒÔ±ÜÃâÊý×éÌ«´ó¶ø´øÀ´µÄËÙÂʽµµÍ¡££¨ÅÅÐòÕâÑùµÄÊý×é²Ù×÷£¬Ö»ÐèÒª¶Ô1£ºsta_info(0)ÕâÐ©ÔªËØ½øÐм´¿É£©
2Â¥2015-05-27 08:19:38
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

pippi6

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

¹¤³ÌºÍ¿ÆÑ§ÊýÖµ¼ÆËã×Éѯ

¡ï
Сľ³æ: ½ð±Ò+0.5, ¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
subroutine DynamicArray
  implicit none
  real*8, allocatable, dimension( :: sta_info
  integer :: i,n=20,j

  do i=1,n
     allocate(sta_info(i))
     
     do j=1,i
        sta_info(j)=j
     end do
     print*,' i=',i,' sizeof(sta_info)=',sizeof(sta_info)
     deallocate(sta_info)
  end do
end subroutine DynamicArray
3Â¥2015-05-27 13:14:14
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

qingkonggzc

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

ÒýÓûØÌû:
2Â¥: Originally posted by ä±¾£ at 2015-05-27 08:19:38
ÎÒÒ²³£Óöµ½ÕâÑùµÄÎÊÌ⣬һ°ãÎÒÊÇͨ¹ýÒÔÏ·½°¸½â¾öµÄ¡£
¶¨ÒåÒ»¸öºÜ´óµÄÊý×飬Èçsta_info(0:1000)¡£
Ö®ËùÒÔ¶¨Òå³Ésta_info(0:1000)¶ø·Çsta_info(1:1000)£¬²¢²»ÊÇÒòΪÎÒϰ¹ßÁËCÓïÑÔÀïµÄÊý×éĬÈÏϱê´Ó0¿ªÊ¼¡£Êµ¼ÊÉÏ£¬ ...

ÄãºÃ£¬Ð»Ð»¡£
Ê×ÏÈÕâÑùºÍÖ±½Ó¶¨ÒåÒ»¸ö½Ï´óµÄÊý×飬ȻºóÒÀ´Î°ÑÊý¾Ý/×Ö·û´®Ð´½øÈ¥Ð§¹ûÓ¦¸ÃÊÇÒ»ÑùµÄ°É£¬¾ÍÊÇÓжàÉÙÊý¾Ýд¶àÉÙ¿Õ¼äµÄ£¬Ê£ÏµĻ¹Êǿյģ¬È»ºó¶ÔÆä½øÐÐÅÅÐò£¿Õâ¸öÖ±½Ó°Ñ×ܹ²ÓжàÉÙÊý¾Ý¼ÆËã³öÀ´£¬È»ºó¶ÔÕâ1-n¸öÊý¾Ý½øÐÐÅÅÐòºóÃæµÄûÓÐÓ°ÏìÂ𣿻¹ÊǰÑÕâ1-n¸öÊý¾ÝÌáÈ¡³öÀ´·Åµ½Ò»¸öеÄÊý×éÀïÃæ£¿
4Â¥2015-05-27 19:23:58
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 262Çóµ÷¼Á +4 ÀøÖ¾Ò»¶¨·¢ÎÄÕ 2026-04-02 5/250 2026-04-02 11:07 by ÀøÖ¾Ò»¶¨·¢ÎÄÕÂ
[¿¼ÑÐ] 292Çóµ÷¼Á +14 ÊÇåû×ÓÒ²ÊÇÑÐ×Ó 2026-03-30 14/700 2026-04-02 10:17 by sanrepian
[¿¼ÑÐ] 311Çóµ÷¼Á +16 zchqwer 2026-04-01 18/900 2026-04-02 10:15 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] ¸÷λÀÏʦºÃ£¬ÎÒµÄһ־ԸΪ±±¾©¿Æ¼¼´óѧ085601²ÄÁÏר˶ +13 Koxui 2026-03-28 13/650 2026-04-02 09:35 by ßÕßÕßÕßÉßÉßÉ
[¿¼ÑÐ] 301Çóµ÷¼Á +13 A_JiXing 2026-04-01 13/650 2026-04-02 09:01 by sanrepian
[¿¼ÑÐ] 805600ר˶²ÄÁÏÓ뻯¹¤348·ÖÇóµ÷¼Á +6 ÉÏѧÀ²£¡ 2026-04-01 6/300 2026-04-02 07:49 by 2026²ÄÁϵ÷¼Á
[¿¼ÑÐ] 085600 295·ÖÇóµ÷¼Á +15 W55j 2026-03-30 18/900 2026-04-01 23:00 by À´¿´Á÷ÐÇÓê10
[¿¼ÑÐ] °²È«¹¤³Ì 285 Çóµ÷¼Á +3 Xinyu56 2026-04-01 4/200 2026-04-01 21:50 by ¾²¾²¾²¾²¾²¾²¾²¾
[¿¼ÑÐ] 070300»¯Ñ§279Çóµ÷¼Á +15 ¹þ¹þ¹þ^_^ 2026-03-31 17/850 2026-04-01 21:37 by ¸øÄãÄã×¢ÒâÐÝÏ¢
[¿¼ÑÐ] 349Çóµ÷¼Á +6 ³ÔµÄ²»ÉÙ 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[¿¼ÑÐ] 358Çóµ÷¼Á +3 ÍõÏòÑô»¨ 2026-03-31 3/150 2026-04-01 09:56 by zzchen2000
[¿¼ÑÐ] 288×ÊÔ´Óë»·¾³×¨Ë¶Çóµ÷¼Á£¬²»ÏÞרҵ£¬ÓÐѧÉϾÍÐÐ +25 lllllos 2026-03-30 26/1300 2026-04-01 09:52 by Ò»Ö»ºÃ¹û×Ó?
[¿¼ÑÐ] Ò»Ö¾Ô¸ÎäÀí²ÄÁϹ¤³Ì302µ÷¼Á»·»¯»ò»¯¹¤ +15 Doleres 2026-03-31 16/800 2026-04-01 09:49 by lfj11
[¿¼ÑÐ] 0856 335·Ö +9 cccchenso 2026-03-29 9/450 2026-03-31 16:37 by lishahe
[¿¼ÑÐ] Ó¢Ò»ÊýÒ»×Ü·Ö334Çóµ÷¼Á +4 ³ÂÑôÀ¤ 2026-03-31 4/200 2026-03-31 14:22 by ¼Çʱ¾2026
[¿¼ÑÐ] µ÷¼ÁÇóԺУÕÐÊÕ +7 º×¾¨¸ë 2026-03-28 7/350 2026-03-31 11:21 by oooqiao
[¿¼ÑÐ] һ־ԸʳƷ¿ÆÑ§Ó빤³Ì083200Çóµ÷¼Á +4 XQTJZ 2026-03-30 4/200 2026-03-31 04:10 by fmesaito
[¿¼ÑÐ] 0703»¯Ñ§321·ÖÇóµ÷¼Á +10 Èýdd. 2026-03-30 11/550 2026-03-30 19:24 by markhwc
[¿¼ÑÐ] Ò»Ö¾Ô¸ÉϺ£Àí¹¤ÄÜÔ´¶¯Á¦£¨085800£©310·ÖÇóµ÷¼Á +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by ¸øÄãÄã×¢ÒâÐÝÏ¢
[¿¼ÑÐ] 315µ÷¼Á +4 0860Çóµ÷¼Á 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û