MoDeNa  1.0
Software framework facilitating sequential multi-scale modelling
vandermonde.f
1  subroutine vandermonde(a,mc,n1,cc,ipiv,info)
2 
3  integer n1,cc,info,ipiv(n1)
4  double precision a(n1,n1), mc(cc,n1)
5  double precision mmc(n1,cc)
6 
7  a=transpose(a)
8  mmc=transpose(mc)
9 
10 
11  call dgesv(n1,cc,a,n1,ipiv,mmc,n1,info)
12 
13  mc = transpose(mmc)
14 
15  end subroutine