ファイルから未知数の行を宣言する方法

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

パラメータを宣言する場合、その値はコンパイル時に固定する必要があります。したがって、コンパイラがNumberOfLineの値を知らないと、integer, parameter :: newDimension = ANumber * 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