vector Module


Functions

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

Arguments

Type IntentOptional Attributes Name
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 Attributes Name
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 Attributes Name
real(kind=8), intent(in) :: a

Return Value real(kind=8)


Subroutines

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

Arguments

Type IntentOptional Attributes Name
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 Attributes Name
real(kind=8), intent(in) :: Amat(:,:)
real(kind=8), intent(inout) :: eigenvector(:,:)