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
applications
PUfoam
MoDeNaModels
CFD_tool_0D
src
eigen
src
vandermonde.f
Generated on Fri Jan 13 2017 16:47:18 for MoDeNa by
1.8.13