Wie die unbekannte Anzahl der Zeile aus der Datei zu deklarieren

Question

Ich muss mit einer Datei arbeiten, die Anzahl der Zeile aufgrund der vorherigen Operation ändern (aus Python-Skript), und diese Nummer der Zeile wird verwendet, um die andere Variable zu deklarieren, so was.

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

Wie kann ich NumberOfLine ordnungsgemäß deklarieren? Vielen Dank. Ich kann die Nummer der Zeile von Python übergeben, also grundsätzlich kenne ich diese Zahl nach dem Python-Vorgang abgeschlossen

Answer 1

Wenn Sie einen Parameter deklarieren, muss sein Wert zur Kompilierzeit festgelegt werden. Ihr integer, parameter :: newDimension = ANumber * NumberOfLine kann nicht funktionieren, wenn der Compiler den Wert NumberOfLine nicht kennt.

Was Sie tun können, ist zuweisbaren Arrays zu verwenden:

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