Commit 3eba2eae authored by Florian Goth's avatar Florian Goth
Browse files

homogenize

parent 18d6ce21
...@@ -116,7 +116,7 @@ ...@@ -116,7 +116,7 @@
TMP = TMP1 TMP = TMP1
if (pkg <= splits(chosensplitting)%nrVstages) then if (pkg <= splits(chosensplitting)%nrVstages) then
Do n = 1,Size(Op_V,1) Do n = 1,Size(Op_V,1)
X = sqrt(splits(chosensplitting)%VCoeffs(pkg)) * Phi(nsigma(n,nt, pkg),Op_V(n,nf)%type) X = sqrt(splits(chosensplitting)%Vcoeffs(pkg)) * Phi(nsigma(n,nt, pkg),Op_V(n,nf)%type)
Call Op_mmultR(TMP,Op_V(n,nf),X,Ndim) Call Op_mmultR(TMP,Op_V(n,nf),X,Ndim)
ENDDO ! n ENDDO ! n
endif endif
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment