• Miércoles 20 de Noviembre de 2024, 13:41
« anterior próximo »
Páginas: [1]

Autor Tema:  Guardar Archivo En Arreglo Bidimensional  (Leído 3647 veces)

payo22

  • Miembro activo
  • **
  • Mensajes: 33
    • Ver Perfil
Guardar Archivo En Arreglo Bidimensional
« en: Jueves 2 de Septiembre de 2004, 17:32 »
0
Hola Maestros:

La verdad soy muy novato en esto del fortran lo que pretendo hacer es guardar el cntenido de un archivo en un arreglo bidimensional, mi archivo es un texto el cual contiene 12 columnas por 2010 renglones los datos que contiene mi archivo son reales.

lo que pasa es que lo guardaba en un arreglo simple y solo me guarda la el ultimo renglon la foma como lo estoy haciendo es la siguiente





Código: Text
  1.  
  2.        program Evalua_Estacion
  3.                                                                                
  4.          real a(14),f
  5.          character *30 est
  6.  
  7.                                                                                
  8.          open(1,file='1941.txt',form='formatted')
  9. 20       read(1,*,end=99,err=99)ianio,a,est
  10.            print *,ianio,a,est    
  11.  
  12.  
  13.          goto 20
  14.                                                                                
  15. 99     stop
  16.                                                                                
  17.        end
  18.  
  19.  

con este el problema es que solo me muestra el ultimo renglo , entonces lo que habia hecho era poner al arreglo como a(2010,14) pero en el read no se como poner para que se guarden los valores.

espero me hayan entendico.

gracias.  :comp:

payo22

  • Miembro activo
  • **
  • Mensajes: 33
    • Ver Perfil
Re: Guardar Archivo En Arreglo Bidimensional
« Respuesta #1 en: Jueves 2 de Septiembre de 2004, 17:54 »
0
gracias a todos ya lo soucione jejeje

por si les llega a servir aqui les va como le hice:

Código: Text
  1.  
  2.        program Evalua_Estacion
  3.                                                                                
  4.          real a(5000,14),f
  5.          character *30 est
  6.          integer contador,i,j
  7.          contador = 0
  8.                                                                                
  9.          open(1,file='1941.txt',form='formatted')
  10.          i=0
  11. 20       i=i+1
  12.           read(1,*,end=99,err=99)ianio,(a(i,j),j=1,14),est
  13. c         print *,ianio,xlong,xlat,a,"  ",est
  14.          contador = contador+1
  15. c         print *,ianio,a,"  ",est
  16.          goto 20
  17.                                                                                
  18. 99      continue
  19.                                                                                
  20.          print *,"Este es contador",contador
  21.                                                                                
  22.          do i=1,contador
  23.             do j=1,14
  24.                print *,a(i,j)
  25.             enddo
  26.          enddo
  27.        end
  28.  
  29.  
Páginas: [1]
« anterior próximo »