| 查看: 1144 | 回复: 8 | ||
[求助]
FORTRAN属性声明出错
|
INTEGER,ALLOCATABLE :: NNN( 编译，提示语法错误：syntax error detected between , and ALLOCATABLE 哪位好心人帮忙解释一下 |
回复此楼» 猜你喜欢
参与限项
已经有3人回复
-
假如你的研究生提出不合理要求
已经有7人回复
-
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 大家帮我看一个fortran的程序，我总是计算不出正确的结果
已经有20人回复
- 如何改变fortran的浮点精度
已经有28人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- fortran编译 read出错 完毕
已经有11人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】fortran出错 编译通过 运行溢出
已经有10人回复
- 【求助】FORTRAN中增加计算区域后出错，
已经有5人回复
- 【求助】fortran程序未出错，但运行不出结果，中途中断！
已经有6人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
2楼2011-12-06 14:59:31
3楼2011-12-06 19:31:04
4楼2011-12-06 19:32:36
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1431.3
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 441.5小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
【答案】应助回帖
★ ★
jjdg(金币+2): 辛苦了 2011-12-07 01:56:24
jjdg(金币+2): 辛苦了 2011-12-07 01:56:24
|
没问题呀，大哥 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
锐利的碎片
木虫 (正式写手)
star watcher
- 应助: 136 (高中生)
- 金币: 3637.1
- 散金: 252
- 红花: 22
- 帖子: 988
- 在线: 1224.9小时
- 虫号: 961933
- 注册: 2010-03-05
- 专业: 凝聚态物性 II ：电子结构
6楼2011-12-06 21:05:50
7楼2011-12-07 10:32:49
8楼2011-12-07 10:35:25
锐利的碎片
木虫 (正式写手)
star watcher
- 应助: 136 (高中生)
- 金币: 3637.1
- 散金: 252
- 红花: 22
- 帖子: 988
- 在线: 1224.9小时
- 虫号: 961933
- 注册: 2010-03-05
- 专业: 凝聚态物性 II ：电子结构
9楼2011-12-07 13:36:47