{ PostVectMult (V, built row, QMap.mat[i]Λ);
QMap is acturally QMap's transpose here
We do not need to calculate the whole QMap on Am, but for offline, probably. }
QMap.mat[l]Λ[i] := 0; for j := 1 to k do QMap.mat[l]Λ[i] :=
QMap.mat[l]Λ[i] +
V.mat[l]Λ[j] * built_row[j];
{ QMap.mat[l]Λ[i] :=
QMap.mat[ 1 ]Λ[i] / ( n_s/n_mvblk ); } end;
new_release_urv(urv, Icnunit, status);
end; {with urv} n_mvblk := n_mvblki; end; {status = 0.0} end; {sp_h2solut}
{(:PCHP:} END. {of unit} {:PCHP:)}