[ot] problemas con fortran

[Kuskulinho]

Perdón, es en Fortran,


Kuskulinho wrote:
> 
> 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-tp19612249p19612250.html
Sent from the ubuntu-es mailing list archive at Nabble.com.