SoloCodigo

Programación General => Otros Lenguajes de Programación => Fortran => Mensaje iniciado por: payo22 en Jueves 2 de Septiembre de 2004, 17:32

Título: Guardar Archivo En Arreglo Bidimensional
Publicado por: payo22 en Jueves 2 de Septiembre de 2004, 17:32
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:
Título: Re: Guardar Archivo En Arreglo Bidimensional
Publicado por: payo22 en Jueves 2 de Septiembre de 2004, 17:54
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.