[ot] problemas con fortran

[Kuskulinho]

Buenas, 

Mi nombre es Pascual, y estoy haciendo un proyecto final de carrera en
Linux, pero no sé porqué me cuesta excesivamente comprenderlo.

No sé si me podréis ayudar, pero el proyecto es sobre el tratamiento de
matrices, y no entiendo muy bien como usar el READ, porque se supone que
tengo tres matrices guardadas en un archivo y quiero asignarle el valor de
dichas matrices a otra para poder operar con ellas.

El codigo de una parte sería algo así:

     PROGRAM crsacss
      dimension val_css(:), ind_fila_ccs (:), totalnum_ccs (:), ind_col_crs
(:)
      dimension val_crs (:), totalnum_crs(:)
      integer *4 n, x, conta, j, contador, c, l, z, b
      n = 1
      x = 0
      conta = 1
      j = 0
      c = 1
      l = 1
      z = 1
      b = 1
!     Asignar valores del archivo a las matrices
!     Tenemos que mirar el orden que tiene el archivo para saber si va así
      open (unit = 10, FILE='', Status='old')
      read (*,*,*) ind_col_crs, val_crs, totalnum_crs
!     Buscamos el valor máximo de columna que tenemos y la guardamos en b
      Do x = 0, contador.NE.x, x++
        If b < ind_col_crs(x) then
          b = ind_col_crs(x)
        endif
      Enddo
      Do n = 1, n.LT.b, n++
        Do x = 0, contador.NE.x, x++
          If col_ind_crs(x) == n then
            val_ccs (j) == val_crs (n)
            ind_fila_ccs (j) == 1
            j = j + 1
          Endif
          x = x + 1
          If x.EQ.totalnum_crs (z) then
            z = z + 1
            l = l + 1
          Endif
        Enddo
        totalnum_ccs (c) = conta
        c = c + 1
        l = 1
        z = 1
      Enddo
     Endprogram

**** tengo el problema que tampoco se ejecutar un programa de fortran/****
-- 
View this message in context: http://www.nabble.com/-ot--problemas-con-fortran-tp19612249p19612249.html
Sent from the ubuntu-es mailing list archive at Nabble.com.