matrix – Formath

public interface matrix

Construct a matrix

Module Procedures

matrix_ctr_nk matrix_ctr_nk_int matrix_ctr_nk_r32 matrix_ctr_nk_r64 matrix_ctr_matrix matrix_ctr_int matrix_ctr_r32 matrix_ctr_r64 matrix_ctr_rank1_int matrix_ctr_rank1_r32 matrix_ctr_rank1_r64

Module Procedures

private elemental function matrix_ctr_nk(n, k) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing the number of rows $n$ and the number of columns $k$

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n	The number of rows in $m$
integer,	intent(in)			::	k	The number of cols in $m$

Return Value type(matrix)

private elemental function matrix_ctr_nk_int(n, k, val) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing the number of rows $n$ and the number of columns $k$

Arguments

Type	Intent		Name
integer,	intent(in)	::	n	The number of rows in $m$
integer,	intent(in)	::	k	The number of cols in $m$
integer,	intent(in)	::	val

Return Value type(matrix)

private elemental function matrix_ctr_nk_r32(n, k, val) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing the number of rows $n$ and the number of columns $k$

Arguments

Type	Intent		Name
integer,	intent(in)	::	n	The number of rows in $m$
integer,	intent(in)	::	k	The number of cols in $m$
real(kind=real32),	intent(in)	::	val

Return Value type(matrix)

private elemental function matrix_ctr_nk_r64(n, k, val) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing the number of rows $n$ and the number of columns $k$

Arguments

Type	Intent		Name
integer,	intent(in)	::	n	The number of rows in $m$
integer,	intent(in)	::	k	The number of cols in $m$
real(kind=real64),	intent(in)	::	val

Return Value type(matrix)

private pure function matrix_ctr_matrix(m2) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing a rank2 integer array

Arguments

Type	Intent	Optional	Attributes		Name
class(matrix),	intent(in)			::	m2

Return Value type(matrix)

private pure function matrix_ctr_int(array) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing a rank2 integer array

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:,:)	::	array

Return Value type(matrix)

private pure function matrix_ctr_r32(array) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing a rank2 integer array

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real32),	intent(in),		dimension(:,:)	::	array

Return Value type(matrix)

private pure function matrix_ctr_r64(array) result(A)

Create a new $n$ -by- $k$ matrix $A$ by passing a rank2 integer array

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in),		dimension(:,:)	::	array

Return Value type(matrix)

private pure function matrix_ctr_rank1_int(array, n, k) result(A)

Construct a $n$ -by- $k$ given a rank1 array of ints

Arguments

Type	Intent	Attributes		Name
integer,	intent(in),	dimension(:)	::	array
integer,	intent(in)		::	n
integer,	intent(in)		::	k

Return Value type(matrix)

private pure function matrix_ctr_rank1_r32(array, n, k) result(A)

Construct a $n$ -by- $k$ given a rank1 array of ints

Arguments

Type	Intent	Attributes		Name
real(kind=real32),	intent(in),	dimension(:)	::	array
integer,	intent(in)		::	n
integer,	intent(in)		::	k

Return Value type(matrix)

private pure function matrix_ctr_rank1_r64(array, n, k) result(A)

Construct a $n$ -by- $k$ given a rank1 array of ints

Arguments

Type	Intent	Attributes		Name
real(kind=real64),	intent(in),	dimension(:)	::	array
integer,	intent(in)		::	n
integer,	intent(in)		::	k

matrix Interface

Contents

Module Procedures

public interface matrix

Contents

Module Procedures

Module Procedures

private elemental function matrix_ctr_nk(n, k) result(A)

Arguments

Return Value type(matrix)

private elemental function matrix_ctr_nk_int(n, k, val) result(A)

Arguments

Return Value type(matrix)

private elemental function matrix_ctr_nk_r32(n, k, val) result(A)

Arguments

Return Value type(matrix)

private elemental function matrix_ctr_nk_r64(n, k, val) result(A)

Arguments

Return Value type(matrix)

private pure function matrix_ctr_matrix(m2) result(A)

Arguments

Return Value type(matrix)

private pure function matrix_ctr_int(array) result(A)

Arguments

Return Value type(matrix)

private pure function matrix_ctr_r32(array) result(A)

Arguments

Return Value type(matrix)

private pure function matrix_ctr_r64(array) result(A)

Arguments

Return Value type(matrix)

private pure function matrix_ctr_rank1_int(array, n, k) result(A)

Arguments

Return Value type(matrix)

private pure function matrix_ctr_rank1_r32(array, n, k) result(A)

Arguments

Return Value type(matrix)

private pure function matrix_ctr_rank1_r64(array, n, k) result(A)

Arguments

Return Value type(matrix)