N1. データ入出力

関数
Sub	HBRead (Fname As String, Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Neltvl As Long, Val() As Double, Ptr() As Long, Ind() As Long, Nrhs As Long, Nrhsix As Long, Rhsval() As Double, Rhsptr() As Long, Rhsind() As Long, Sguess() As Double, Xexact() As Double, DataType As Long, MatShape As Long, MatForm As Long, RhsForm As Long, IniVec As Long, SolVec As Long, Optional Info As Long, Optional Skip As Long=0, Optional Base As Long=0, Optional Format As Long=0, Optional Sort As Long=0)
	Harwell-Boeing形式ファイルの読み出し
Sub	HBRead1 (Fname As String, Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Double, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Nrhs As Long, Optional Base As Long=0, Optional Format As Long=0, Optional Sort As Long=0)
	Harwell-Boeing形式ファイルの読み出し (シンプルドライバ)
Sub	HBReadInfo (Fname As String, Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Neltvl As Long, Nrhs As Long, Nrhsix As Long, DataType As Long, MatShape As Long, MatForm As Long, RhsForm As Long, IniVec As Long, SolVec As Long, Optional Info As Long)
	Harwell-Boeing形式ファイルから行列情報を読み出す
Sub	HBReadInfo1 (Fname As String, Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Nrhs As Long)
	Harwell-Boeing形式ファイルから行列情報を読み出す(シンプルドライバ)
Sub	HBWrite (Fname As String, ByVal Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Neltvl As Long, Val() As Double, Ptr() As Long, Ind() As Long, Nrhs As Long, Nrhsix As Long, Rhsval() As Double, Rhsptr() As Long, Rhsind() As Long, Sguess() As Double, Xexact() As Double, DataType As Long, MatShape As Long, MatForm As Long, RhsForm As Long, IniVec As Long, SolVec As Long, Optional Info As Long, Optional Fchk As Long=0, Optional Base As Long=-1, Optional Format As Long=0, Optional IntN As Long=8, Optional IntW As Long=10, Optional DblN As Long=3, Optional DblW As Long=23, Optional DblD As Long=15)
	Harwell-Boeing形式ファイルへの書き込み
Sub	HBWrite1 (Fname As String, ByVal Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Double, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Fchk As Long=0, Optional Base As Long=-1, Optional Format As Long=0)
	Harwell-Boeing形式ファイルへの書き込み (シンプルドライバ)
Sub	MMRead (Fname As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Double, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Skip As Long=0, Optional Base As Long=0, Optional Format As Long=0, Optional Sort As Long=0)
	Matrix Market形式ファイルの読み出し
Sub	MMReadInfo (Fname As String, Nrow As Long, Ncol As Long, Nnz As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long)
	Matrix Market形式ファイルから行列情報を読み出す
Sub	MMWrite (Fname As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Double, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Fchk As Long=0, Optional Base As Long=-1, Optional Format As Long=0)
	Matrix Market形式ファイルへの書き込み
Sub	ZHBRead (Fname As String, Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Neltvl As Long, Val() As Complex, Ptr() As Long, Ind() As Long, Nrhs As Long, Nrhsix As Long, Rhsval() As Complex, Rhsptr() As Long, Rhsind() As Long, Sguess() As Complex, Xexact() As Complex, DataType As Long, MatShape As Long, MatForm As Long, RhsForm As Long, IniVec As Long, SolVec As Long, Optional Info As Long, Optional Skip As Long=0, Optional Base As Long=0, Optional Format As Long=0, Optional Sort As Long=0)
	Harwell-Boeing形式ファイルの読み出し (複素行列)
Sub	ZHBRead1 (Fname As String, Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Complex, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Nrhs As Long, Optional Base As Long=0, Optional Format As Long=0, Optional Sort As Long=0)
	Harwell-Boeing形式ファイルの読み出し (シンプルドライバ) (複素行列)
Sub	ZHBWrite (Fname As String, ByVal Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Neltvl As Long, Val() As Complex, Ptr() As Long, Ind() As Long, Nrhs As Long, Nrhsix As Long, Rhsval() As Complex, Rhsptr() As Long, Rhsind() As Long, Sguess() As Complex, Xexact() As Complex, DataType As Long, MatShape As Long, MatForm As Long, RhsForm As Long, IniVec As Long, SolVec As Long, Optional Info As Long, Optional Fchk As Long=0, Optional Base As Long=-1, Optional Format As Long=0, Optional IntN As Long=8, Optional IntW As Long=10, Optional DblN As Long=3, Optional DblW As Long=23, Optional DblD As Long=15)
	Harwell-Boeing形式ファイルへの書き込み (複素行列)
Sub	ZHBWrite1 (Fname As String, ByVal Title As String, Key As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Complex, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Fchk As Long=0, Optional Base As Long=-1, Optional Format As Long=0)
	Harwell-Boeing形式ファイルへの書き込み (シンプルドライバ) (複素行列)
Sub	ZMMRead (Fname As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Complex, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Skip As Long=0, Optional Base As Long=0, Optional Format As Long=0, Optional Sort As Long=0)
	Matrix Market形式ファイルの読み出し (複素行列)
Sub	ZMMWrite (Fname As String, Nrow As Long, Ncol As Long, Nnz As Long, Val() As Complex, Ptr() As Long, Ind() As Long, DataType As Long, MatShape As Long, MatForm As Long, Optional Info As Long, Optional Fchk As Long=0, Optional Base As Long=-1, Optional Format As Long=0)
	Matrix Market形式ファイルへの書き込み (複素行列)
Sub	ReadGmsh22 (FName As String, N As Long, X() As Double, Y() As Double, Z() As Double, Ne As Long, Kc() As Long, Lb() As Long, Info As Long)
	Gmsh ファイル (Version 2.2) から有限要素法用のメッシュ情報を読み込む [実験バージョン]
Sub	ReadMesh (FName As String, Ndim As Long, N As Long, X() As Double, Y() As Double, Z() As Double, Lp() As Long, Ne As Long, Kc() As Long, Le() As Long, Nb As Long, Ks() As long, Lb() As Long, Info As Long)
	FreeFEM++ mesh ファイルから有限要素法用のメッシュ情報を読み込む [実験バージョン]
Sub	ReadMsh2 (FName As String, N As Long, X() As Double, Y() As Double, Ln() As Long, Ne As Long, Kc() As Long, Le() As Long, Nb As Long, Ks() As long, Lb() As Long, Info As Long)
	FreeFEM++ msh (2D) ファイルから有限要素法用のメッシュ情報を読み込む [実験バージョン]
Sub	ReadMsh3 (FName As String, N As Long, X() As Double, Y() As Double, Z() As Double, Lp() As Long, Ne As Long, Kc() As Long, Le() As Long, Nb As Long, Ks() As long, Lb() As Long, Info As Long)
	FreeFEM++ msh (3D) ファイルから有限要素法用のメッシュ情報を読み込む [実験バージョン]
Sub	WriteCsv2 (FName As String, N As Long, X() As Double, Y() As Double, U() As Double, Info As Long)
	座標および値を CSV ファイルに出力する (2D) [実験バージョン]
Sub	WriteCsv3 (FName As String, N As Long, X() As Double, Y() As Double, Z() As Double, U() As Double, Info As Long)
	座標および値を CSV ファイルに出力する (3D) [実験バージョン]
Sub	WriteGmsh22 (FName As String, N As Long, X() As Double, Y() As Double, Z() As Double, Ne As Long, Kc() As Long, Lb() As Long, Info As Long)
	有限要素法用のメッシュ情報を Gmsh ファイル (Version 2.2) に書き出す [実験バージョン]
Sub	WriteVtkUg (FName As String, N As Long, X() As Double, Y() As Double, Z() As Double, Ne As Long, Kc() As Long, U() As Double, Info As Long)
	VTKファイルへの出力 (有限要素法による偏微分方程式の解) [実験バージョン]

詳解

N1. データ入出力 プログラムを表示しています.