版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

>论坛更新日志 (3617)
>虫友互识 (1057)
>文献求助 (274)
>导师招生 (185)
>休闲灌水 (174)
>考博 (135)
>教师之家 (90)
>硕博家园 (86)
>博后之家 (82)
>论文投稿 (81)
>找工作 (77)
>基金申请 (71)
>论文道贺祈福 (67)
>考研 (62)
>公派出国 (52)
>招聘信息布告栏 (38)

返回列表

田山东

捐助贵宾 (著名写手)

应助: 5 (幼儿园)
金币: 77
散金: 739
红花: 8
帖子: 1577
在线: 138.1小时
虫号: 800307
注册: 2009-06-28
性别: GG
专业: 基础物理学

[求助] lunix下定义三维数组出错，可以帮忙看下吗？谢谢

我定义了一个动态数组，
COMPLEX(16),DIMENSION(:,

,allocatable ::GG,SHH,GA
   & ,Rho1,Rho2,Rho

   COMPLEX(16),DIMENSION(:,:,

,allocatable :: F,HG,S
   ALLOCATE(GG(MN,MN),SHH(MN,MN),GA(MN,MN),Rho1(MN,MN),Rho2(N,L),
   & Rho(MN,MN))

   ALLOCATE(F(N,N,L),HG(N,N,L),S(N,N,L))
在我自己电脑上用的挺好，但是在Lunix下出问题了！！提示
为什么会这样呢？

   COMPLEX(16),DIMENSION(:,

,allocatable ::GG,SHH,GA
1
Error: Kind 16 not supported for type COMPLEX at (1)
xingnewarmchair.f:20.16:

COMPLEX(16),DIMENSION(:,:,

,allocatable :: F,HG,S
            1
Error: Kind 16 not supported for type COMPLEX at (1)
xingnewarmchair.f:31.16:

   ALLOCATE(GG(MN,MN),SHH(MN,MN),GA(MN,MN),Rho1(MN,MN),Rho2(N,L),
            1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
xingnewarmchair.f:34.16:

   ALLOCATE(F(N,N,L),HG(N,N,L),S(N,N,L))
            1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
xingnewarmchair.f:94.6:

   SHH(N+1:2*N,N+1:2*N)=SL1
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:95.6:

   SHH(2*N+1:3*N,2*N+1:3*N)=SL1
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:111.6:

   F(:,:,1)=-MATMUL(TA,B1)
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:118.29:

      TA=AL2+MATMUL(C2,F(:,:,j-1))-SL1  !\xB5\xDA2\xCC\xF5\xC1\xB4\xD3\xD0\xB5\xE7\xBC\xAB
                           1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:120.29:

      TA=AL2+MATMUL(C2,F(:,:,j-1))
                           1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:125.6:

   F(:,:,j)=-MATMUL(TA,B2)
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:128.28:

      TA=AL1+MATMUL(C1,F(:,:,j-1))-SL1
                        1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:130.28:

      TA=AL1+MATMUL(C1,F(:,:,j-1))
                        1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:135.6:

   F(:,:,j)=-MATMUL(TA,B1)
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:140.25:

   TA=AR1+MATMUL(C1,F(:,:,j-1))
                     1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:144.6:

   F(:,:,j)=-MATMUL(TA,B1)
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:146.25:

   TA=AR2+MATMUL(C2,F(:,:,j-1))
                     1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:150.6:

   F(:,:,j)=-MATMUL(TA,B2)
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:156.25:

   TA=AR2+MATMUL(C2,F(:,:,L-1))-SR
                     1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:159.6:

   HG(:,:,L)=TA
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:166.6:

   S(:,:,L-1)=-MATMUL(TA,C2)
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:169.25:

   TA=AR1+MATMUL(C1,F(:,:,L-2))+MATMUL(B1,S(:,:,L-1))  ! TA=AR1+MATMU
                     1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:173.6:

   HG(:,:,L-1)=TA
   1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:178.31:

         TA=AR1+MATMUL(B1,S(:,:,j+1))  !TA=AR1+MATMUL(B1,S(:,:,j+1))
                           1
Error: Syntax error in argument list at (1)
xingnewarmchair.f:183.13:

         S(:,:,j)=-MATMUL(TA,C1)
         1
Error: Unclassifiable statement at (1)
xingnewarmchair.f:186.32:

         TA=AR2+MATMUL(C2,F(:,:,j-1))+MATMUL(B2,S(:,:,j))  ! TA=AR2+
                              1
Error: Syntax error in argument list at (1)

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

磷酸铁锂电池40度的容量居然比23度低，求大神帮忙解释！有金币感激！已经有12人回复
请专家帮忙看是什么树脂已经有3人回复
望大侠帮忙分析一下这张循环伏安图已经有3人回复
gaussian运算出错，贴出log和输入文件求高手给指点一下已经有9人回复
帮忙分析下雷达测向中辐射源信号的相关性对测向性能的影响具有研究价值吗？已经有4人回复
下载了MATLAB2012可是安装不了。大侠帮帮忙谢谢已经有13人回复
汉译英，170字，医学专业，120金币，请高手帮忙搞定，请手翻，谢谢！已经有1人回复
汉译英，330字，医学专业，请高手帮忙搞定，请手译，谢绝机翻，摆脱，谢谢！已经有1人回复
请帮忙翻译一段话，汉译英，谢谢已经有2人回复
急求帮助，请各位帮忙！谢谢计算NBO电荷分析出现如下问题已经有6人回复
关于苄基氯成季铵盐的问题，尝试了10多次都未成功，希望大家帮帮忙啊。谢谢了！已经有6人回复
TableCurve 3D v4.0 自动三维曲线拟合与经验公式查找软件【搜索无重复】Zxl890727 已经有125人回复
VB控件数组的使用已经有4人回复
请教Fortran下如何给二维或三维数组赋初值，谢谢已经有3人回复
三维数组换行输入到文件（intel fortran 编译器）已经有6人回复

everythinghasitsseason.enjoyyourlife.

1楼 2012-06-14 18:40:53

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军

程序强帖: 40
应助: 817 (博后)
金币: 12914.1
红花: 64
帖子: 2238
在线: 287.3小时
虫号: 696514
注册: 2009-02-05
专业: 计算机软件

【答案】应助回帖

感谢参与，应助指数 +1

不确定你的程序具体干什么
但是报错很清楚,Kind 16 not supported for type COMPLEX at (1)
COMPLEX(16)的时候,这个16不被COMPLEX支持,估计是win下和linux下的库或者依赖项不大相同,造成的错误
后面还有其他错误,但是debug得一个一个来,有可能后面的错误是由第一个造成的
你先检查编译器和依赖库

赞一下

回复此楼

matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com

2楼2012-06-14 19:12:17

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

田山东

捐助贵宾 (著名写手)

应助: 5 (幼儿园)
金币: 77
散金: 739
红花: 8
帖子: 1577
在线: 138.1小时
虫号: 800307
注册: 2009-06-28
性别: GG
专业: 基础物理学

是这个问题，complex*16就可以运行了

赞一下

回复此楼

everythinghasitsseason.enjoyyourlife.

3楼2012-06-14 20:25:11

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主田山东的主题更新

返回列表