Фортран 90 как писать очень длинные выходные строки разной длины
мы часами рыскали в интернете для решения этой проблемы и можемничего не найти. Я пытался записать неформатированный вывод в выходной файл CSV с несколькими очень длинными строками различной длины и несколькими типами данных. Я'Я пытаюсь сначала написать длинный заголовок, который указывает переменные, которые будут записаны ниже, разделенные запятыми. Затем в строках ниже этого я пишу значения, указанные в заголовке. Однако при последовательном доступе длинные выходные строки разбиваются на несколько более коротких строк, а это не то, на что я надеялся. Я попытался контролировать длину строки, используя recl в операторе open, но это добавило только кучу искаженного текста и символа после вывода с той же проблемой, которая все еще возникала. Я также попытался использовать прямой доступ, но строки не имеют одинаковую длину, поэтому не будет работать. Я'Я читал об использовании потокового ввода-вывода в Fortran2003, но яЯ использую Fortran90, так что выигралтоже не работает. Я использую Fortran 90 с IDE Платона, который использует компилятор FTN95. Я включил пример программы, аналогичный тому, что я хочу сделать ниже, используя массив и некоторый фиктивный текст, и яНиже приведен вывод, иллюстрирующий проблему. Кто-нибудь знает, как я могу только одну строку за оператор записи? Любая помощь будет принята с благодарностью.
module types
integer, parameter :: dp=selected_real_kind(15)
end module types
program blah
use types
use inputoutput
implicit none
integer :: i
character(50)::fileNm
integer :: unitout2=20
real(dp), dimension(100) :: bigArray
fileNm='predictout2.csv'
open(unit=unitout2,file=fileNm,status="replace")
do i=1,100
bigArray(i)=i
end do
write(unitout2,*)"word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,&
&word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,&
&word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word"
write(unitout2,*)bigArray
close(unitout2)
end program
Вот's вывод для программы выше (без recl):
word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word
,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,word,wo
rd,word,word,word,word,word
1.00000000000 2.00000000000 3.00000000000 4.00000000000
5.00000000000 6.00000000000 7.00000000000 8.00000000000
9.00000000000 10.0000000000 11.0000000000 12.0000000000
13.0000000000 14.0000000000 15.0000000000 16.0000000000
17.0000000000 18.0000000000 19.0000000000 20.0000000000
21.0000000000 22.0000000000 23.0000000000 24.0000000000
25.0000000000 26.0000000000 27.0000000000 28.0000000000
29.0000000000 30.0000000000 31.0000000000 32.0000000000
33.0000000000 34.0000000000 35.0000000000 36.0000000000
37.0000000000 38.0000000000 39.0000000000 40.0000000000
41.0000000000 42.0000000000 43.0000000000 44.0000000000
45.0000000000 46.0000000000 47.0000000000 48.0000000000
49.0000000000 50.0000000000 51.0000000000 52.0000000000
53.0000000000 54.0000000000 55.0000000000 56.0000000000
57.0000000000 58.0000000000 59.0000000000 60.0000000000
61.0000000000 62.0000000000 63.0000000000 64.0000000000
65.0000000000 66.0000000000 67.0000000000 68.0000000000
69.0000000000 70.0000000000 71.0000000000 72.0000000000
73.0000000000 74.0000000000 75.0000000000 76.0000000000
77.0000000000 78.0000000000 79.0000000000 80.0000000000
81.0000000000 82.0000000000 83.0000000000 84.0000000000
85.0000000000 86.0000000000 87.0000000000 88.0000000000
89.0000000000 90.0000000000 91.0000000000 92.0000000000
93.0000000000 94.0000000000 95.0000000000 96.0000000000
97.0000000000 98.0000000000 99.0000000000 100.000000000