fortran - 将变量编号分配给复数数组

Question

我想将复杂数组分配为变量。我的代码就像

        complex indx(3,3)
        integer i,j

        do i=1,3
          do j=1,3
            indx(i,j) = (i,j)                
            write(*,*) indx(i,j)
          end do
        end do

在这种情况下，我收到类似的错误

 A symbol must be a defined parameter in this context.   [I]
                       indx(i,j) = (i,j)

Answer 1

您必须使用函数cmplx构建您想要分配的复杂值。

    complex indx(3,3)
    integer i,j

    do i=1,3
      do j=1,3
       indx(i,j) = cmplx(i,j)               
       write(*,*) indx(i,j)
      end do
    end do

您尝试的语法仅对常量文字有效。