Znn3bq.jpeg
²é¿´: 1216  |  »Ø¸´: 8

lotusgun

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

[ÇóÖú] FORTRANÊôÐÔÉùÃ÷³ö´í

INTEGER,ALLOCATABLE :: NNN(

±àÒ룬ÌáʾÓï·¨´íÎó£ºsyntax error detected between , and ALLOCATABLE
ÄÄλºÃÐÄÈ˰ïæ½âÊÍÒ»ÏÂ
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

maomao1210

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

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

¡ï
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-12-07 01:56:00
ÒýÓûØÌû:
1Â¥: Originally posted by lotusgun at 2011-12-06 13:41:59:
INTEGER,ALLOCATABLE :: NNN(

±àÒ룬ÌáʾÓï·¨´íÎó£ºsyntax error detected between , and ALLOCATABLE
ÄÄλºÃÐÄÈ˰ïæ½âÊÍÒ»ÏÂ

´ó¸ç£¬Äܲ»ÄܶàÌù³öµã´úÂë³öÀ´ÄØ£¿ÄãÕâÈÃÈ˼ҸôƤ²Â¹Ï£¬Ã»ÄÇˮƽŶ
2Â¥2011-12-06 14:59:31
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lotusgun

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

ÒýÓûØÌû:
2Â¥: Originally posted by maomao1210 at 2011-12-06 14:59:31:
´ó¸ç£¬Äܲ»ÄܶàÌù³öµã´úÂë³öÀ´ÄØ£¿ÄãÕâÈÃÈ˼ҸôƤ²Â¹Ï£¬Ã»ÄÇˮƽŶ

¾ÍÒ»¸öСģ¿é
MODULE MTYPE_BASIC
        IMPLICIT DOUBLE PRECISION(A-H,O-Z)     
     TYPE MINTPOINTER
                      INTEGER,ALLOCATABLE :: NNN(
              INTEGER NUM
        END TYPE
     TYPE ALLDIM_INT
                      INTEGER,ALLOCATABLE :: JME(
              INTEGER NUM
        END TYPE
END MODULE
3Â¥2011-12-06 19:31:04
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lotusgun

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

ÒýÓûØÌû:
2Â¥: Originally posted by maomao1210 at 2011-12-06 14:59:31:
´ó¸ç£¬Äܲ»ÄܶàÌù³öµã´úÂë³öÀ´ÄØ£¿ÄãÕâÈÃÈ˼ҸôƤ²Â¹Ï£¬Ã»ÄÇˮƽŶ

NNNºÍJMEÊÇÁ½¸öÊý×é
4Â¥2011-12-06 19:32:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

maomao1210

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

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

¡ï ¡ï
jjdg(½ð±Ò+2): ÐÁ¿àÁË 2011-12-07 01:56:24
ÒýÓûØÌû:
3Â¥: Originally posted by lotusgun at 2011-12-06 19:31:04:
¾ÍÒ»¸öСģ¿é
MODULE MTYPE_BASIC
        IMPLICIT DOUBLE PRECISION(A-H,O-Z)     
     TYPE MINTPOINTER
                      INTEGER,ALLOCATABLE :: NNN(
              INTEGER NUM
        END TYPE
...

ûÎÊÌâѽ£¬´ó¸ç
MODULE MTYPE_BASIC
  IMPLICIT DOUBLE PRECISION(A-H,O-Z)     
     TYPE MINTPOINTER
        INTEGER,ALLOCATABLE :: NNN(
        INTEGER NUM
     END TYPE
     
         TYPE ALLDIM_INT
        INTEGER,ALLOCATABLE :: JME(
        INTEGER NUM
     END TYPE
END MODULE

use mtype_basic
implicit none
type(MINTPOINTER) :: a
type(ALLDIM_INT):: b

allocate(a%nnn(3))
allocate(b%jme(3))

a%nnn = (/1,2,3/)
b%jme = (/11,22,33/)


write(*,*) a%nnn
write(*,*) b%jme
end
5Â¥2011-12-06 20:29:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÈñÀûµÄË鯬

ľ³æ (ÕýʽдÊÖ)

star watcher

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

¡ï
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-12-07 01:56:30
lotusgun(½ð±Ò+1): 2011-12-08 11:21:31
derive typeÀïʹÓÃallocatableÊý×éÊÇf2003мӵģ¬ÐèÒª±àÒëÆ÷Ö§³Ö¡£
6Â¥2011-12-06 21:05:50
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lotusgun

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

ÒýÓûØÌû:
6Â¥: Originally posted by ÈñÀûµÄË鯬 at 2011-12-06 21:05:50:
derive typeÀïʹÓÃallocatableÊý×éÊÇf2003мӵģ¬ÐèÒª±àÒëÆ÷Ö§³Ö¡£

ÓпÉÄÜÊÇÕâ¸öÎÊÌ⣬ÎÒÓõÄÊÇpowerstation4.0£¬Ò»Ö±Ã»ÕÒµ½ÐµıàÒëÆ÷
7Â¥2011-12-07 10:32:49
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lotusgun

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

ÒýÓûØÌû:
5Â¥: Originally posted by maomao1210 at 2011-12-06 20:29:33:
ûÎÊÌâѽ£¬´ó¸ç
MODULE MTYPE_BASIC
  IMPLICIT DOUBLE PRECISION(A-H,O-Z)     
     TYPE MINTPOINTER
        INTEGER,ALLOCATABLE :: NNN(
        INTEGER NUM
     END TYPE
     
         TYPE ALLDI ...

ÇëÎÊÄãÓõÄÊÇÄĸö±àÒëÆ÷
8Â¥2011-12-07 10:35:25
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÈñÀûµÄË鯬

ľ³æ (ÕýʽдÊÖ)

star watcher

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

¡ï
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-12-08 00:22:35
windowsÉÏgfortranºÍifort¶¼¿ÉÒÔ
9Â¥2011-12-07 13:36:47
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ lotusgun µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ¿¼Ñе÷¼Á-²ÄÁÏÀà-284 +21 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 21/1050 2026-04-09 09:21 by ÄæË®³Ë·ç
[»ù½ðÉêÇë] Óб¬ÁÏ£¬Ò»¸öÇàÄê½ÌʦÂô·¿µÃ400Íò£¬È»ºó»»ÁËÒ»¸öËÄÇàñ×Ó +6 babu2015 2026-04-08 6/300 2026-04-09 08:14 by kudofaye
[¿¼ÑÐ] 353Çóµ÷¼Á +8 Çç¿ÕÍòÀïair 2026-04-07 8/400 2026-04-09 00:18 by GouQ
[¿¼ÑÐ] 331Çóµ÷¼Á +5 luoxin0706. 2026-04-08 5/250 2026-04-08 22:15 by zhouyuwinner
[¿¼ÑÐ] ÉúÎïѧѧ˶£¬³õÊÔ351·Ö£¬Çóµ÷¼Á +4 ¡­¡«¡¢Íõ¡­¡« 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[¿¼ÑÐ] 296Çóµ÷¼Á +3 Íô£¡£¿£¡ 2026-04-08 3/150 2026-04-08 21:46 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] 327Çóµ÷¼Á +12 Xxjc1107. 2026-04-06 12/600 2026-04-08 16:46 by luoyongfeng
[¿¼ÑÐ] 22408 266Çóµ÷¼Á +11 masss11222 2026-04-07 14/700 2026-04-08 11:06 by yulian1987
[¿¼²©] É격 +8 IQwQl 2026-04-04 8/400 2026-04-08 09:43 by 0608104024
[¿¼ÑÐ] 22408 һ־Ը˫һÁ÷È˹¤ÖÇÄÜ300·Ö ËÄÁù¼¶£¬Êý¾Ý·ÖÎö¹ú½± +4 zzfeng123 2026-04-06 6/300 2026-04-07 21:02 by zzfeng123
[¿¼ÑÐ] ÉúÎïѧ363µ÷¼ÁÇóÖú +7 fanzhang6666 2026-04-06 9/450 2026-04-07 17:37 by lijunpoly
[¿¼ÑÐ] ÐŹ¤Ëù11408 340·Ö ±¾¿ÆÎ÷°²½»´ó×Ô¶¯»¯ +3 moontrek 2026-04-06 3/150 2026-04-07 09:56 by chongya
[¿¼ÑÐ] 287·ÖÇóµ÷¼Á ÓÐרÀû¹ú½±Ò»Ö¾Ô¸¹þ¹¤´ó085406 +6 °×Ò׳½ 2026-04-06 7/350 2026-04-06 22:46 by 875465
[¿¼ÑÐ] Çóµ÷¼Á +4 wos666 2026-04-03 5/250 2026-04-06 15:22 by wos666
[¿¼ÑÐ] 0817»¯Ñ§¹¤³ÌÓë¼¼ÊõÇóµ÷¼Á£¬Ò»Ö¾Ô¸Öк£Ñó319 +14 lv945 2026-04-04 14/700 2026-04-06 10:20 by À¶ÔÆË¼Óê
[¿¼ÑÐ] ¹¤¿ÆÇóµ÷¼Á +15 11ggg 2026-04-03 15/750 2026-04-05 16:24 by zzx2138
[¿¼ÑÐ] µ÷¼ÁÇóÖú +10 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-02 13/650 2026-04-05 09:41 by sam3303
[¿¼ÑÐ] 285Çóµ÷¼Á +5 AZMK 2026-04-03 8/400 2026-04-03 18:17 by AZMK
[¿¼ÑÐ] 372·Ö²ÄÁÏÓ뻯¹¤£¨085600£©Ò»Ö¾Ô¸ºþÄÏ´óѧÇóµ÷¼Á +3 À¶¼ãƬ 2026-04-03 4/200 2026-04-03 17:58 by Jimmyandyou
[¿¼ÑÐ] ²ÄÁÏ340·Öµ÷¼Á +7 ÏÄÒ¹Íí·ç_long 2026-04-02 9/450 2026-04-02 21:20 by dongzh2009
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û