como escrever uma enorme matriz para arquivar linha por linha (fortran 90)
Eu quero escrever uma matriz com um monte de dados para um arquivo, linha por linha. Por exemplo, eu tenho uma matriz de 100 * 100 e quero tê-la no formato 100 * 100 no arquivo. No entanto, isso não funciona. Seguindo meu código e algumas descrições. N e M são inteiros em torno de algumas centenas. RECL é o comprimento esperado eu definir o arquivo, mas aqui parece que este comando não funciona. A saída é com 198 linhas quando N é definido como 99 e M é definido como 200. Vec é uma matriz complexa de precisão dupla. Como eu poderia produzir os valores do Vec mantendo seu formato original N * M? Meu comando de compilação é "ifort -o out test.f90".
open(unit=2, file='graph1.txt', ACTION="write", STATUS="replace",RECL=40*M+10)
do i=1,N
do j=1,M
write(2, '(F)', advance='no') real(Vec(i,j))
end do
write(2, *) ''
end do
Seguindo os conselhos do @george, codifiquei um programa como este:
program test
implicit none
integer i,j
open(unit=2, file='graph1.txt', ACTION="write", STATUS="replace")
do i=1,500
write(2, '(1600F14.7)')( 0.00001 ,j=1,499)
end do
close(2)
end
Com este código, problema resolvido! Talvez eu não tenha compilado corretamente da última vez.