Programación General > Fortran

 Guardar Archivo En Arreglo Bidimensional

(1/1)

payo22:
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 ---        program Evalua_Estacion                                                                                         real a(14),f         character *30 est                                                                                          open(1,file='1941.txt',form='formatted')20       read(1,*,end=99,err=99)ianio,a,est           print *,ianio,a,est               goto 20                                                                                99     stop                                                                                       end  
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:
gracias a todos ya lo soucione jejeje

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


--- Código: Text ---        program Evalua_Estacion                                                                                         real a(5000,14),f         character *30 est         integer contador,i,j         contador = 0                                                                                         open(1,file='1941.txt',form='formatted')         i=020       i=i+1          read(1,*,end=99,err=99)ianio,(a(i,j),j=1,14),estc         print *,ianio,xlong,xlat,a,"  ",est         contador = contador+1c         print *,ianio,a,"  ",est         goto 20                                                                                99      continue                                                                                         print *,"Este es contador",contador                                                                                         do i=1,contador            do j=1,14               print *,a(i,j)            enddo         enddo       end  

Navegación

[0] Índice de Mensajes