MULTIMEDIA, Video digital, Grabación, Diseño gráfico, Diseño web, Programación > Webmasters - Diseño Web - Programación - Diseño gráfico

suceso paranormal: ¿os ha pasado alguna vez?

(1/1)

yhebra:
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

yhebra:
Vale, después de darle muchas vueltas, se encendió la lucecita
 :idea:

El fallo era totalmente de principiante:

si defino el archivo como unidad 6, tengo problemas porque el 6 se corresponde con la pantalla, ayyyyyyy

jirho:
...bien, la verdad no manejo el lenguaje, pero me alegra que se haya solucionado... :wink: ...

Navegación

[0] Índice de Mensajes