end-of-file during read ????
Publicado por Leandro (1 intervención) el 03/10/2008 07:16:55
Tengo el siguiente codigo para leer una matriz 20*20 desde un .txt externo:
program prob11
implicit none
integer, parameter :: N = 20
integer, dimension(N,N) :: grid
integer(8) :: prodVer,prodHor,i,j
OPEN(UNIT=1,FILE="grid.txt",STATUS="old")
do i=1,N
write(*,*)"i=",i
do j=1,N
write(*,*)"j=",j
read(1,*)grid(i,j)
enddo
enddo
close(1)
endprogram
el write i y j los escribi dsps para chequear hasta donde llegaba porq durante la ejecución me tira el siguiente error: severe <24>: end-of-file during read, unit 1, file <path>grid.txt
con los write agregados me di cuenta de q lee la primer fila y salta el error cuando empieza a leer la segunda.
No se q hacer, estuve buscando pero no encontre nada util asi q recurri aca... espero q alguien me pueda dar una mano. Muchas gracias
program prob11
implicit none
integer, parameter :: N = 20
integer, dimension(N,N) :: grid
integer(8) :: prodVer,prodHor,i,j
OPEN(UNIT=1,FILE="grid.txt",STATUS="old")
do i=1,N
write(*,*)"i=",i
do j=1,N
write(*,*)"j=",j
read(1,*)grid(i,j)
enddo
enddo
close(1)
endprogram
el write i y j los escribi dsps para chequear hasta donde llegaba porq durante la ejecución me tira el siguiente error: severe <24>: end-of-file during read, unit 1, file <path>grid.txt
con los write agregados me di cuenta de q lee la primer fila y salta el error cuando empieza a leer la segunda.
No se q hacer, estuve buscando pero no encontre nada util asi q recurri aca... espero q alguien me pueda dar una mano. Muchas gracias
Valora esta pregunta
0