%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  MAP05 - Metodos Matriciais Computacionais - PPGMAp UFRGS
%%  Mat01050 - Algebra Matricial Computacional - DMPA UFRGS

Tecnicamente, esse nao eh um script, pois nao pode ser executado.
Entenda como um conjunto de instrucoes que facilmente podem
ser carregados com o mouse.

Objetivo: interface de Scilab com subrotina em fortran 90, em 
   ambiente Linux com gfortran

   Programa simples, calcula uma matriz parametrica
     M = [2   1+x   -3*y
          x*x  -2   y+2]
   para dados x e y.

 edite arquivo: matriz1.f90
   subroutine matriz1(x,y,m)
     real (kind=8) :: x,y,m(2,3)
     m(1,1)=2
     m(1,2)=1+x
     m(1,3)=-3*y
     m(2,1)=x*x
     m(2,2)=-2
     m(2,3)=y+2
     return
   end

  compile com:   gfortran -shared -o matriz1.so  matriz1.f90
  para gerar uma biblioteca dinamica chamada matriz1.so.

 em Scilab:
   ilib_for_link('matriz1','matriz1.f90',[],"f")
   exec loader.sce
   x=1.2;y=2.2;
   m=call("matriz1",x,1,"d",y,2,"d","out",[2,3],3,"d")

%% Feito    JBC 28Ago2012
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%