Как объявить неизвестное количество строк из файла

Question

Мне нужно работать с файлом, который может изменить число строк из-за предыдущей операции (из сценария python), и это число строк будет использоваться для объявления другой переменной, как это.

integer NumberOfLine !This is not work,Of course. 
real(8) F(FixedDimension,NumberOfLine) 
integer, parameter :: NewDimension = ANumber*NumberOfLine 

Как я могу правильно объявить NumberOfLine. Благодарю. Я могу передать число строк из python. Так что я знаю, что число после операции python завершено

Answer 1

Если вы объявите параметр, его значение должно быть исправлено во время компиляции. Таким образом, ваш integer, parameter :: newDimension = ANumber * NumberOfLine не может работать, если компилятор не знает значения NumberOfLine.

Что вы можете сделать, это использовать размещаемые массивы:

program test_alloc 

    implicit none 
    integer, parameter :: dp = selected_real_kind(p=15) 
    real(kind=dp), dimension(:,:), allocatable :: F 
    integer :: i 
    integer, parameter :: FixedDimension = 10 

    print *, "Enter i" 
    read(*, *) i 

    allocate (a(FixedDimension, i)) 
    a = i 
    print *, a 

end program test_alloc