Запись массива в файл CSV

Question

Я пытаюсь создать массив и вывести его в excel с правильными строками и столбцами. Но когда я запускаю код ниже, он дает мне их всего в одном столбце и 16 строках. В любом случае я могу изменить его так, чтобы он дал его мне в 4 столбцах и 4 строках?

do i = 1, 4 
    do j = 1, 4 

    test(i,j) = 2 

    print *, test(i,j) 
    open(unit = 10, file = "test.csv") 
    write(10,*), test(i,j) 
    end do 
end do 

Answer 1

Некоторые вещи: если вы делаете файл ввода/вывода, вам нужно открыть и закрыть файл. Вам нужно сделать это только один раз.

Далее, каждый оператор write (если явно не указано иначе), продвиньте линию.

Самый простой способ получить то, что вы, кажется, хотят это:

test(:, :) = 2 
open(unit=10, file='test.csv') 
do j = 1, 4 
    write(10, *) test(1:4, j) 
end do 
close(10) 

Но это не разделяются запятой. Если предположить, что test является целым массивом, вы можете изменить write заявление выше этого:

write(10, '(3(I0, ", "), I0)') test(1:4, j) 

Обновление: Я просто подтвердил @ наценка s предложение:

write(10, '(*(I0 : ", "))') test(:, j) 

Это даже лучше, вам не нужно знать размер массива.

Или, еще лучше, и описал here, вы можете использовать модуль А CSV