Hola!!
Estoy escribiendo un programilla fortran que me lea una serie consecutiva de archivos:
*********************************************************
program vibracion
dimension enlaces(10000,6)
character*3 raiz
character*4 ext
character*8 filename
character*1 orden
x=0.
raiz='oga'
ext='.xyz'
do j=1,6
write(orden,'(i1.1)') j
filename=raiz//orden//ext
open(j,file=filename,status='old')
read(j,*)x
write(*,*)x
close(j)
end do
stop
end program
*************************************************************************
Los archivos son tríadas de números, en plan:
-1.26111 1.47704 -0.589984
-1.26068 1.52804 -0.568728
-1.25315 1.57949 -0.552699
-1.23103 1.61879 -0.542233
-1.20389 1.63377 -0.535293
-1.17202 1.63182 -0.535425
-1.1273 1.63304 -0.541636
etc. hasta el infinito...
Pasa lo siguiente: los archivos de oga1.xyz hasta oga5.xyz, sin problemas. Cuando llega al oga6.xyz, lo abre pero no imprime el número en pantalla, y además lo modifica, y queda sólo:
0.922949 1.39704 1.19728
0.922949016
Vale, ahora me copio el oga6.xyz como oga7.xyz, y hago el ciclo DO hasta 7. Vuelve a escribir sólo las 5 primeras tríadas en pantalla, me vuelve a joder el oga6.xyz y el oga7.xyz lo deja intacto!!
:shock:
¿Se os ocurre algo?
Muchas gracias
