Чтение данных из файла в двумерный массив

Question

Я совершенно новичок в fortran, а также в программировании (второстепенный опыт). Мне трудно написать код для следующего.

мне нужно хранить данные в двухмерного массива с использованием данных два входных файлов Затем мне нужно определить размер двух файлов Затем необходимо выбрать переменные из обоего измерений для определенного значения одной переменной , а затем вычислить среднее значение Наконец, запишите результаты в новый файл данных.

Например:

• Существует два радиозондов файлы данных с давлением, высоты, температуры, значения точки росы с различными данными размеров
• Необходимо получить средние значения высоты, температуры и точки росы, при удельное давление 1000, 850 и 500 (оба файла имеют эти записи) и записываются в новый файл.

Я просмотрел несколько книг, но не мог понять то, что я искал. Может ли кто-нибудь из вас дать мне некоторое представление о кодировании? Я очень благодарен вам, ребята.

Answer 1

Ваш код будет выглядеть примерно так:

program main 
    implicit none 

    real::height(100) 
    integer::i 

    open(unit=16, file='height.dat') 

    do i = 1, 100 
     read(16, *) height(i) 
    enddo 

    close(16) 

    open(unit=16, file='mean_height.dat') 

    write(16, *) sum(height)/100 

    close(16) 

end program 

Это предполагает есть файл с именем height.dat с одним значением высоты в каждой строке, 100 строк всего. Он считывает 100 высот, затем записывает среднюю высоту в файл mean_height.dat. Вам, очевидно, придется существенно изменить это. Например, вы не будете знать, что есть 100 строк в файле, так что вам нужно будет использовать allocatable массив для значений, которые Вы читаете в:

program main 
    implicit none 

    real,allocatable::height(:) 
    integer::i, N 

    !Code that figures out how many lines there are 
    !... 

    allocate(height(N)) 

    open(unit=16, file='height.dat') 

    do i = 1, N 

Это поможет вам начать ... В идеале может начаться с более простого входного файла, чем то, что вы описываете, чтобы изучить основы.