| 查看: 1111 | 回复: 7 | ||
[求助]
关于fortran中矩阵的问题 已有1人参与
|
|
问题是这样的,想要将参数计算以后放入矩阵中,部分程序是这样的 subroutine preparemeter(X,Y,N,A,B,C,D,F) implicit none integer,parameter::M=2 integer::N integer::i real::X(N) real::Y(N) real::A real::B real::C real: ![]() do i=1,N A=A+X(i) B=B+X(i)*X(i) C=C+Y(i) D=D+X(i)*y(i) end do real::matrixA(M,M)=reshape((/A,B,C,D/),(/M,M/)) 但是编译器报错,内容是: real::matrixA(M,M)=RESHAPE((/A,B,C,D/),(/M,M/)) 1 Error: Parameter 'a' at (1) has not been declared or is a variable, which does not reduce to a constant expression 我的理解是,参数A为变量,不能转化为常量表达式。 小弟新手,刚刚学习Fortran不久,求教大神,这样的问题应该怎么样解决啊 万分感谢 |
» 猜你喜欢
面上的水很深
已经有21人回复
小木虫没落了,除了祈祷帖子,几乎看不到有价值的帖子
已经有15人回复
国社科通讯评审
已经有5人回复
5个%2F,非固定段22个字母
已经有9人回复
生命口C13面上会评时间
已经有11人回复
生命口面上会评结束了吗大家有知道结果吗?现在还没有结果正常不?
已经有9人回复
投英文期刊如何查重
已经有6人回复
伯胺上甲基求助
已经有7人回复
跨出版社商投稿
已经有5人回复
生生命学部会评
已经有4人回复
» 本主题相关价值贴推荐,对您同样有帮助:
关于Fortran开发工具
已经有3人回复
关于Fortran语言中的一个运行错误“file name missing or blank...“
已经有1人回复
关于fortran new_line函数的用法
已经有3人回复
关于FORTRAN字符串合并问题
已经有2人回复
关于Fortran中的FFTW问题
已经有0人回复
想请教一下关于intel visual fortran中LINK的问题!
已经有0人回复
关于FORTRAN程序输出结果如何建立实体模型
已经有4人回复
关于FORTRAN程序建立分子动力学模型
已经有0人回复
菜鸟求助关于fortran if循环的问题,经验丰富的前辈肯定一眼能看出问题出在哪
已经有3人回复
求助关于fortran读取文件的问题
已经有1人回复
关于fortran中nint的使用问题
已经有1人回复
谁能找到NASA的一篇关于喷管性能计算的文献中的FORTRAN源代码啊,求助
已经有4人回复
关于Fortran子例子程序的问题
已经有0人回复
fortran中对变量取值
已经有3人回复
关于fortran子程序调用内部函数
已经有7人回复
关于复数在Fortran中如何定义的问题
已经有3人回复
关于fortran的一个小问题
已经有2人回复
关于Fortran中的乘法和求逆比较
已经有10人回复
每天一问..关于IVF和compaq fortran
已经有2人回复
关于fortran中的rewind 语言
已经有5人回复
Fortran中关于数组的变化
已经有5人回复
请教关于fortran程序调试中出现的问题
已经有1人回复
【求助】关于Fortran90编程的头文件和变量定义【已完结】
已经有2人回复
【求助】请教Abinit 中关于Fortran编译器
已经有2人回复

2楼2016-02-24 11:09:16
virtualzx
木虫 (著名写手)
- 应助: 263 (大学生)
- 金币: 7161.3
- 红花: 54
- 帖子: 1605
- 在线: 317.6小时
- 虫号: 2069080
- 注册: 2012-10-18
- 性别: GG
- 专业: 理论和计算化学
3楼2016-02-24 11:18:37
4楼2016-02-24 18:38:02
5楼2016-02-24 18:38:20
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
6楼2016-02-24 18:56:27
|
改成这样了,但是编译器还是报错 real::matrixA(N,N) do i=1,N A=A+X(i) B=B+X(i)*X(i) D=D+X(i)*y(i) C=C+Y(i) F=N*1.0 end do data((matrixA(row,col),row=1,2),col=1,2) /A,B,C,D/ 报错原因 data((matrixA(row,col),row=1,2),col=1,2) /A,B,C,D/ 1 Error: Symbol 'a' must be a PARAMETER in DATA statement at (1) ..\..\..\..\Desktop\Fortran\3.f90:40.6: 还是说参数的问题 |
7楼2016-02-25 18:38:14
smyli
至尊木虫 (知名作家)
日月当空曌
- 应助: 89 (初中生)
- 金币: 13974.5
- 散金: 1726
- 红花: 39
- 沙发: 1
- 帖子: 5407
- 在线: 826.5小时
- 虫号: 1132835
- 注册: 2010-10-27
- 性别: GG
- 专业: 应用高分子化学与物理
8楼2016-03-23 19:59:10












回复此楼