public static void fnFIE_mat_afree(
	FMATRIX_PTR a
)

Public Shared Sub fnFIE_mat_afree ( 
	a As FMATRIX_PTR
)

//    $Revision: 1.1 $

using System;
using System.Collections.Generic;
using System.Text;
using fvalgcli;

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_mat_afree()
        {
            FMATRIX_PTR a = FMATRIX_PTR.Zero;

            try
            {
                // 3x3行列a を確保.
                a = api.fnFIE_mat_aalloc(3, 3);
                Assert.IsTrue(a != FMATRIX_PTR.Zero, "エラーが発生しました。");

                // a を10x10行列にリサイズ
                int status = api.fnFIE_mat_arealloc(a, 10, 10);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                Console.WriteLine("fnFIE_mat_afree");
            }
            finally
            {
                // 解放.
                api.fnFIE_mat_afree(a);
                a = FMATRIX_PTR.Zero;
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports fvalgcli

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_mat_afree()
        Dim a As FMATRIX_PTR = FMATRIX_PTR.Zero

        Try
            ' 3x3行列a を確保.
            a = api.fnFIE_mat_aalloc(3, 3)
            Assert.IsTrue(a <> FMATRIX_PTR.Zero, "エラーが発生しました。")

            ' a を10x10行列にリサイズ
            Dim status As Integer = api.fnFIE_mat_arealloc(a, 10, 10)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            Console.WriteLine("fnFIE_mat_afree")
        Finally
            ' 解放.
            api.fnFIE_mat_afree(a)
            a = FMATRIX_PTR.Zero
        End Try
    End Sub
End Class