Нужно ли объявлять размеры массива перед любым другим кодом? Например, я написал следующий упрощенный пример кода:
PROGRAM mytest
IMPLICIT NONE
INTEGER :: i, j, k, mysum
! Let array c be a k-by-k**2 array
! Determine k within the program by some means...for example,
mysum=0
DO i=1, 3
mysum=mysum+1
END DO
k=mysum
REAL, DIMENSION(k, k**2) :: c
WRITE(*,*) "k=", k
WRITE(*,*) "k**2=", k**2
WRITE(*,*)
DO i=1,size(c,1)
WRITE(*,"(100(3X,F3.1))") (c(i,j), j=1,size(c,2))
END DO
END PROGRAM mytest
Смысл, который я пытаюсь сделать, заключается в том, что я хотел бы создать массив c
, который равен k
-by - k ** 2
размером, а k
определяется только другими вычислениями в коде; k
изначально неизвестно.
Но,приведенный выше код дает мне следующее сообщение об ошибке во время компиляции:
mytest.f90:13.31:
REAL, DIMENSION(k, k**2) :: c
1
Error: Unexpected data declaration statement at (1)
где строка 13 в моем коде - это строка, в которой я наконец объявляю c
: REAL, DIMENSION (k, k ** 2 ) :: c
.
С другой стороны, если я вместо этого объявлю k
и заранее укажу его размеры,
PROGRAM mytest
IMPLICIT NONE
INTEGER :: i, j, k, mysum
REAL, DIMENSION(3,9) :: c
! Let array c be a k-by-k**2 array
! Determine k within the program by some means...for example,
mysum=0
DO i=1, 3
mysum=mysum+1
END DO
k=mysum
WRITE(*,*) "k=", k
WRITE(*,*) "k**2=", k**2
WRITE(*,*)
DO i=1,size(c,1)
WRITE(*,"(100(3X,F3.1))") (c(i,j), j=1,size(c,2))
END DO
END PROGRAM mytest
я получу правильный результат:
k= 3
k**2= 9
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
Но, поскольку я не не знаю заранее k
, я не могу сделать это в моем реальном коде. Есть ли способ сначала «объявить» массив c
без указания его размеров, а затем указать размеры, как только станет известно значение k
?