Question

fortran语言中，我想定义的数组行与列是需要输入的，应该怎么设置？

我想达到这种效果：
……
real :: A(n, n)
read(*, *)n
……
貌似fortran不支持这样，求问如何达到这种目的啊？

Answer 1

integer::n
integer,allocatable::A(:,:)
……
read(*,*) n
allocate(A(n,n))
……
试试看吧
但是貌似只有f90才支持这样哦

追问

试了，这样不对，出来的数组不对

追答

数组咋不对呢

追问

你那儿有fortran的软件么？我按照你说的这个，然后print一下，无论我输入什么数，出来的数组里每个数都是一个相同的很大的数。

追答

这是由于数组A未赋值，我写了一段，你看看吧
PROGRAM MAIN
IMPLICIT NONE
integer::n,i,j
integer,allocatable::A(:,:)
read(*,*) n
allocate(A(n,n))
do i=1,n
do j=1,n
a(i,j)=33
end do
end do
WRITE(*,*) A(1:n,1:n)
END

Answer 2

可以把数组设置成可变数组：

real,allocatable,dimesion(:,:)::A !将二维数组A设置成可变数组

integer::n

read(*,*) n !读取数值n

allocate(A(1:n,1:n)) ！给数组定义大小

望采纳O(∩_∩)O~

追问

你这个不管用啊，每个数都是-4.3160208E+08

追答

你是说数组的初值吗，这个时候还没赋初值呢，你具体说说你的程序是要达到什么目的？

追问

哦，我再试试看

Answer 3

这个只能for循环，foreach好像达不到你要的效果的

追问

for循环不是fortran语言吧=。=

追答

fortran语言这个是我看错了，不好意思，这个语言还真没有接触过呢