Определение размера массива в Fortran?

Question

Читает количество строк и столбцов для матрицы «A» из файла-'var_and_runs.txt» Но это показывает ошибку компиляции -„неожиданное заявление декларации данных“

implicit none 
integer i, var, runs 
integer rows, cols 
open(unit = 30, file = 'var_and_runs.txt') 
    read(30,*) cols,rows 

INTEGER, DIMENSION(:, :), ALLOCATABLE :: A 

ALLOCATE (A(rows, cols)) 

open (unit = 40, file = 'read_this.txt') 

read(40,*) A 
A = transpose(A) 
do 80 i = 1,3    
print*, A(i,:) 
80 continue 
print*, A 
end 

Пожалуйста, помогите!

Answer 1

У вас не может быть никаких объявлений переменных после исполняемых инструкций. В вашем случае следует заменить

open(unit = 30, file = 'var_and_runs.txt') 
    read(30,*) cols,rows 

INTEGER, DIMENSION(:, :), ALLOCATABLE :: A 

с

INTEGER, DIMENSION(:, :), ALLOCATABLE :: A 
open(unit = 30, file = 'var_and_runs.txt') 
    read(30,*) cols,rows 

и, надеюсь, все должно работать нормально.