public static void SetEntry(ref int _ref, ref int i, ref int j, ref double val, out int ierr)
{
ierr = 0;
try {
IMutableMatrix M = (IMutableMatrix)Infrastructure.GetObject(_ref);
M[i, j] = val;
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
public static void GetLocLen(ref int _ref, out int LocLen, out int ierr)
{
ierr = 0;
LocLen = -1;
try {
ISparseMatrix M = (ISparseMatrix)Infrastructure.GetObject(_ref);
LocLen = M.RowPartitioning.LocalLength;
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
public static void GetI0(ref int _ref, out int i0, out int ierr)
{
ierr = 0;
i0 = -1;
try {
ISparseMatrix M = (ISparseMatrix)Infrastructure.GetObject(_ref);
i0 = (int)M.RowPartitioning.i0;
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
public static void GetMPIsize(ref int _ref, out int MPIsize, out int ierr)
{
ierr = 0;
MPIsize = -1;
try {
IPartitioning p = (IPartitioning)Infrastructure.GetObject(_ref);
MPIsize = (int)p.MpiSize;
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
public static void GetLocLen(ref int _ref, out int LocLen, out int ierr)
{
ierr = 0;
LocLen = -1;
try {
IPartitioning p = (IPartitioning)Infrastructure.GetObject(_ref);
LocLen = (int)p.LocalLength;
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
public static void GetI0(ref int _ref, out int i0, out int ierr)
{
ierr = 0;
i0 = -1;
try {
IPartitioning p = (IPartitioning)Infrastructure.GetObject(_ref);
i0 = (int)p.i0;
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
public static void GetRowPart(ref int MtxRef, out int PartRef, out int ierr)
{
ierr = 0;
PartRef = -1;
try {
ISparseMatrix M = (ISparseMatrix)Infrastructure.GetObject(MtxRef);
PartRef = Infrastructure.RegisterObject(M.RowPartitioning);
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
unsafe public static void SaveToTextFileSparseF(ref int _ref, byte *termchar, byte *path, out int ierr)
{
ierr = 0;
try {
string _path = Infrastructure.FortranToDotNET(path, *termchar);
IMutableMatrixEx M = (IMutableMatrixEx)Infrastructure.GetObject(_ref);
M.SaveToTextFileSparse(_path);
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
unsafe public static void SaveToTextFileSparse(ref int _ref, byte *path, out int ierr)
{
ierr = 0;
try {
string _paht = Marshal.PtrToStringAnsi((IntPtr)path);
IMutableMatrixEx M = (IMutableMatrixEx)Infrastructure.GetObject(_ref);
//Console.WriteLine("saving: >" + _paht + "<");
M.SaveToTextFileSparse(_paht);
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
/// <summary>
/// releases all C# - references on an object, making it ready for garbage-collection.
/// </summary>
public static void ReleaseObject(ref int _ref, out int ierr)
{
ierr = 0;
try {
object o = Infrastructure.GetObject(_ref);
if (o is IDisposable)
{
((IDisposable)o).Dispose();
}
Infrastructure.ForgetObject(_ref);
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
}
unsafe public static void Laplacian(ref int GridRef,
ref int DgDegree,
out int ierr)
{
try {
// grid, etc
// =========
GridData grd = (GridData)(Infrastructure.GetObject(GridRef));
var b = new Basis(grd, DgDegree);
var map = new UnsetteledCoordinateMapping(b);
var L = new Laplace(1.3, grd.Cells.cj);
var op = new SpatialOperator(1, 0, 1, QuadOrderFunc.Linear(), "T", "c1");
op.EquationComponents["c1"].Add(L);
op.Commit();
// evaluate operator
// =================
var Mtx = new BlockMsrMatrix(map, map);
double[] B = new double[map.LocalLength];
var eval = op.GetMatrixBuilder(map, null, map);
eval.ComputeMatrix(Mtx, B);
// return data
// ===========
throw new NotImplementedException("todo");
} catch (Exception e) {
ierr = Infrastructure.ErrorHandler(e);
}
ierr = 0;
}
