Znn3bq.jpeg
²é¿´: 1215  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703µ÷¼Á£¬Ò»Ö¾Ô¸Ìì½ò´óѧ319·Ö +23 haaaabcd 2026-04-05 26/1300 2026-04-08 16:19 by luoyongfeng
[¿¼ÑÐ] Ò»Ö¾Ô¸Äϲý´óѧ£¬085600£¬344·ÖÇóµ÷¼Á +11 µ÷¼ÁÉϰ¶«^ 2026-04-05 12/600 2026-04-08 16:17 by luoyongfeng
[¿¼ÑÐ] 274Çóµ÷¼ÁÇóµ÷¼Á +10 Jachenbingoo 2026-04-06 13/650 2026-04-08 14:25 by zhq0425
[¿¼ÑÐ] Çóµ÷¼Á +28 111623 2026-04-04 33/1650 2026-04-08 09:24 by ÔóÈó¶«·½
[¿¼ÑÐ] 080100Á¦Ñ§316Çóµ÷¼Á +3 L_Hairui 2026-04-07 3/150 2026-04-07 23:26 by JourneyLucky
[¿¼ÑÐ] Çóµ÷¼Á +11 wwwwabcde 2026-04-07 11/550 2026-04-07 23:16 by JourneyLucky
[¿¼ÑÐ] 328Çóµ÷¼Á +4 ghhh88888 2026-04-06 5/250 2026-04-07 14:45 by ghhh88888
[¿¼ÑÐ] ÉúÎïѧÇóµ÷¼Á Ò»Ö¾Ô¸»¦9£¬326·Ö +6 Áõīī 2026-04-06 6/300 2026-04-06 19:36 by lijunpoly
[¿¼ÑÐ] Çóµ÷¼Áµ½²ÄÁÏ +5 ³Ì9915 2026-04-06 5/250 2026-04-06 15:21 by yulian1987
[¿¼ÑÐ] Ò»Ö¾Ô¸°²»Õij211 0703»¯Ñ§×Ü·Ö339Çóµ÷¼Á +7 Íí·ç²»Íí 2026-04-04 7/350 2026-04-06 14:06 by houyaoxu
[¿¼ÑÐ] ¹¤¿Æ370Çóµ÷¼Á +3 äçÐļ弦µ° 2026-04-05 3/150 2026-04-06 10:55 by ÕâÊÇÒ»¸öÎÞÁĵÄê
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©½»Í¨´óѧ²ÄÁϹ¤³Ì×Ü·Ö358Çóµ÷¼Á +4 cs0106 2026-04-04 4/200 2026-04-05 18:46 by imissbao
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +8 ÏàÐűػá¹ââÍòÕ 2026-04-05 10/500 2026-04-05 12:19 by Hdyxbekcb
[¿¼ÑÐ] 0832ʳƷ¿ÆÑ§Ó빤³Ìѧ˶282µ÷¼Á +6 ÓãÔÚË®ÖÐÓÎa 2026-04-02 9/450 2026-04-05 11:45 by flysky1234
[¿¼ÑÐ] 298Çóµ÷¼Á +7 manman511 2026-04-05 7/350 2026-04-05 10:29 by ÌÆãå¶ù
[¿¼ÑÐ] 282µç×ÓÐÅÏ¢0854ר˶µ÷¼Á +4 202451007219 2026-04-02 6/300 2026-04-04 21:55 by laoshidan
[¿¼ÑÐ] Ò»Ö¾Ô¸»ª±±µçÁ¦´óѧ£¨±±¾©£©£¬²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶265£¬Çóµ÷¼Á +11 yelck 2026-04-03 12/600 2026-04-04 19:52 by dongzh2009
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +6 ·¶¸ùÅà 2026-04-04 6/300 2026-04-04 14:27 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] 285Çóµ÷¼Á +7 AZMK 2026-04-02 9/450 2026-04-03 11:12 by wanwan00
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +6 ´Þwj 2026-04-02 6/300 2026-04-03 10:19 by À¶ÔÆË¼Óê
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û