MathClass Module


Contents


Interfaces

public interface fstring

  • public function fstring_int(x) result(a)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: x

    Return Value character(len=20)

  • public function fstring_real(x) result(a)

    Arguments

    Type IntentOptional AttributesName
    real(kind=8), intent(in) :: x

    Return Value character(len=20)

  • public function fstring_int_len(x, length) result(a)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: x
    integer, intent(in) :: length

    Return Value character(len=length)

  • public function fstring_real_len(x, length) result(a)

    Arguments

    Type IntentOptional AttributesName
    real(kind=8), intent(in) :: x
    integer, intent(in) :: length

    Return Value character(len=60)

public interface input

  • public function input_Int(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: default
    integer, intent(in), optional :: option

    Return Value integer

  • public function input_Real(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    real(kind=8), intent(in) :: default
    real(kind=8), intent(in), optional :: option

    Return Value real(kind=8)

  • public function input_IntVec(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: default(:)
    integer, intent(in), optional :: option(:)

    Return Value integer, allocatable, (:)

  • public function input_Realvec(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    real(kind=8), intent(in) :: default(:)
    real(kind=8), intent(in), optional :: option(:)

    Return Value real(kind=8), allocatable, (:)

  • public function input_IntArray(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: default(:,:)
    integer, intent(in), optional :: option(:,:)

    Return Value integer, allocatable, (:,:)

  • public function input_RealArray(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    real(kind=8), intent(in) :: default(:,:)
    real(kind=8), intent(in), optional :: option(:,:)

    Return Value real(kind=8), allocatable, (:,:)

  • public function input_String(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    character(len=*), intent(in) :: default
    character(len=*), intent(in), optional :: option

    Return Value character(len=len(default))

  • public function input_logical(default, option) result(val)

    Arguments

    Type IntentOptional AttributesName
    logical, intent(in) :: default
    logical, intent(in), optional :: option

    Return Value logical

public interface zeroif

  • public function zeroif_Int(val, negative, positive) result(retval)

    Arguments

    Type IntentOptional AttributesName
    integer, intent(in) :: val
    logical, intent(in), optional :: negative
    logical, intent(in), optional :: positive

    Return Value integer

  • public function zeroif_Real(val, negative, positive) result(retval)

    Arguments

    Type IntentOptional AttributesName
    real(kind=8), intent(in) :: val
    logical, intent(in), optional :: negative
    logical, intent(in), optional :: positive

    Return Value real(kind=8)

public interface removeWord

  • public subroutine removeWord_String(str, keyword, itr, Compare)

    Arguments

    Type IntentOptional AttributesName
    character(len=*), intent(inout) :: str
    character(len=*), intent(in) :: keyword
    integer, intent(in), optional :: itr
    logical, intent(in), optional :: Compare

Functions

public function norm(vec) result(a)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: vec(:)

Return Value real(kind=8)

public function SearchNearestCoord(Array, x) result(id)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: Array(:,:)
real(kind=8), intent(in) :: x(:)

Return Value integer

public function SearchIDIntVec(Vec, val) result(id_)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: Vec(:)
integer, intent(in) :: val

Return Value integer

public function cross_product(a, b) result(c)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: a(:)
real(kind=8), intent(in) :: b(:)

Return Value real(kind=8), allocatable, (:)

public function diadic(a, b) result(c)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: a(:)
real(kind=8), intent(in) :: b(:)

Return Value real(kind=8), allocatable, (:,:)

public function signmm(a) result(b)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: a

Return Value real(kind=8)

public recursive function det_mat(a, n) result(det)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: a(n,n)
integer, intent(in) :: n

Return Value real(kind=8)

public function trans1(A) result(A_T)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:)

Return Value real(kind=8), allocatable, (:,:)

public function trans2(A) result(A_T)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)

Return Value real(kind=8), allocatable, (:,:)

public function GetNormRe(a) result(b)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: a(:)

Return Value real(kind=8)

public function GetNormMatRe(a) result(b)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: a(:,:)

Return Value real(kind=8)

public function trace(a) result(b)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: a(:,:)

Return Value real(kind=8)

public function pi(n) result(res)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n

Return Value real(kind=8)

public function fstring_int(x) result(a)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: x

Return Value character(len=20)

public function fstring_int_len(x, length) result(a)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: x
integer, intent(in) :: length

Return Value character(len=length)

public function fstring_real(x) result(a)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: x

Return Value character(len=20)

public function fstring_real_len(x, length) result(a)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: x
integer, intent(in) :: length

Return Value character(len=60)

public function fint(ch) result(a)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: ch

Return Value integer

public function freal(ch) result(a)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: ch

Return Value real(kind=8)

public function input_Int(default, option) result(val)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: default
integer, intent(in), optional :: option

Return Value integer

public function input_Real(default, option) result(val)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: default
real(kind=8), intent(in), optional :: option

Return Value real(kind=8)

public function input_IntVec(default, option) result(val)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: default(:)
integer, intent(in), optional :: option(:)

Return Value integer, allocatable, (:)

public function input_Realvec(default, option) result(val)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: default(:)
real(kind=8), intent(in), optional :: option(:)

Return Value real(kind=8), allocatable, (:)

public function input_IntArray(default, option) result(val)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: default(:,:)
integer, intent(in), optional :: option(:,:)

Return Value integer, allocatable, (:,:)

public function input_RealArray(default, option) result(val)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: default(:,:)
real(kind=8), intent(in), optional :: option(:,:)

Return Value real(kind=8), allocatable, (:,:)

public function input_String(default, option) result(val)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: default
character(len=*), intent(in), optional :: option

Return Value character(len=len(default))

public function input_logical(default, option) result(val)

Arguments

Type IntentOptional AttributesName
logical, intent(in) :: default
logical, intent(in), optional :: option

Return Value logical

public function zeroif_Int(val, negative, positive) result(retval)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: val
logical, intent(in), optional :: negative
logical, intent(in), optional :: positive

Return Value integer

public function zeroif_Real(val, negative, positive) result(retval)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: val
logical, intent(in), optional :: negative
logical, intent(in), optional :: positive

Return Value real(kind=8)


Subroutines

public subroutine heapsort(n, array)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n
integer, intent(inout) :: array(1:n)

public subroutine calcgz(x2, x11, x12, nod_coord, gzi)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: x2
integer, intent(in) :: x11
integer, intent(in) :: x12
real(kind=8), intent(in) :: nod_coord(:,:)
real(kind=8), intent(out) :: gzi

public subroutine eigen_2d(Amat, eigenvector)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: Amat(:,:)
real(kind=8), intent(inout) :: eigenvector(:,:)

public subroutine trans_rank_2(A, A_T)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)
real(kind=8), intent(out), allocatable:: A_T(:,:)

public subroutine inverse_rank_2(A, A_inv)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)
real(kind=8), allocatable:: A_inv(:,:)

public subroutine tensor_exponential(A, expA, TOL, itr_tol)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)
real(kind=8), intent(inout), allocatable:: expA(:,:)
real(kind=8), intent(in) :: TOL
integer, intent(in) :: itr_tol

public subroutine tensor_expo_der(A, expA_A, TOL, itr_tol)

Arguments

Type IntentOptional AttributesName
real(kind=8), intent(in) :: A(:,:)
real(kind=8), intent(inout), allocatable:: expA_A(:,:,:,:)
real(kind=8), intent(in) :: TOL
integer, intent(in) :: itr_tol

public subroutine removeWord_String(str, keyword, itr, Compare)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(inout) :: str
character(len=*), intent(in) :: keyword
integer, intent(in), optional :: itr
logical, intent(in), optional :: Compare