Question

fortran里的数组赋值

为什么real：：A(3,2)=（/1,2,3,4,5,6/）总是出现问题？辅导书上不都是这么赋值的吗。版本是fortran95
主要是2维或者2维以上的数组

Answer 1

错误信息的含义是数组赋值的语句里所有元素必须是同一数据类型
变量a是real(8)，虽然程序中赋值用的是整形的(/1,2,3/)，fortran会自动将其转换成real(8)。
c=(/1,a(2:3)/)这句里1是整形，后面的a(2:3)是real(8)，数据类型不同，所以报错了。
可以改成
c=(/1.0_8,a(2:3)/)

Answer 2

你的写法是不标准的。我不知道你使用的什么教科书？

可能个别编译器会允许这样写，但不标准。

标准的写法是 ：
real :: A(3,2)= reshape( (/1,2,3,4,5,6/) , (/3,2/) )

它表示把 123456 数组重新划分外形（reshape）为 3*2 的数组，并赋值给 a 数组。

追问

用的是彭国伦（fortran95程序设计），我也试过这样写，但是有时候会提示reshape有错误，不过有时候可以。下次遇到再请教，多谢了

Answer 3

解决方法很多!第一，V（5000）=0的意思是，第5000个元素为0，而前4999个没有进行赋值。如果写为：V(1:5000)=0，这就表示5000个全部为0了。第二，V（0:5000）=1,2,3这样写是非法的。第三，V(5000)也可以写为V(1:5000)表示V数组里有5000个数。如果省略了冒号，则默认从1开始如果写成V(0:5000)则表示V数组有5001个数。
请采纳答案，支持我一下。