Question

我是个FORTRAN新手，问一个关于二位矩阵计算的问题，请高手指教

例如，有一个一维矩阵A（10），和一个二维矩阵B（2,10），让矩阵的每一行与矩阵A的每一项对应相乘，即A(1)*B(1,1),A(2)B(1,2),A(3)B(1,3).........A(1)*B(2,1),A(2)*B(2,2),A(3)*B(2，3)......以此类推 用FORTRAN语言实现 只写执行语句
DO I=1,2
DO J=1,10
C(I,J)=A(J)*B(I,J)
ENDDO
ENDDO
这样写，就会出现一些错误，例如 数组项不匹配，数组下标超出等
这是什么原因导致的，是不是改成如下形式
DO I=1,2
DO J=1,10
C(I,J)=A(1,J)*B(I,J)
ENDDO
ENDDO
可追分

Answer 1

你的第一段没有错，你看看你的数组C有没有设置错，Fortran使用变量前，要声明，数组默认下标从1开始，另外数组要声明成同类型的，比如都是real。

追问

C(I,J)=A(J)*B(I,J) 你是说这么写是可以的，就是看变量声明的问题了，是吧？我结一段错误给你看下，望指点
F:\FORTRANlianxi\ROUGHNESS\ROUGHNESS123.F90(237) : Error: The shapes of the array expressions do not conform. [R13]
R13(I+1,J)=(BX(J)**2/BY(J)/LX(I+1,J))*THETA*2*EBXT(I+1)
不懂 ，出现这种情况，是什么原因啊 谢谢

追答

program main
implicit none
real*8 :: A(10),B(2,10),C(2,10)
integer :: i, j

A(:) = 1
B(:,:) = 1

do i=1, 2
do j=1, 10
C(i, j) = A(j) * B(i,j)
end do
end do

write(*,*) C
end

你看看这个对比一下，你屏蔽你的其他代码试试。

追问

恩，我式了你这段是可行的，
但我的程序较长，而且出现的都是类似的3个错误，如下
Error: The shapes of the array expressions do not conform.
Error: Conflicting attributes or multiple declaration of name.
Error:The number of subscripts is incorrect.
它们到底是么原因导致的，求解答 回答后 必加分

追答

Fortran不区分大小写的，就是说你变量命名大小写一样的，别重复了，第二个错误好像就是因此引起的吧。Fortran数组下标默认从1开始。你把你的代码整体发出来看看。或者你也可以逐步屏蔽，然后看问题出在哪一部分代码。

Answer 2

把你的程序全部贴上来，这样我才能帮到你！