operator(.tm.) Interface

public interface operator(.tm.)

multiply two real square matrices, the first is transposed (A*T)B= A .tm. B


Module Procedures

private function mult_real_trans_matrix_matrix(a, b) result(c)

Arguments

Type IntentOptional Attributes Name
real(kind=long), intent(in) :: a(:,:)
real(kind=long), intent(in) :: b(:,:)

Return Value real(kind=long), (size(a,dim=2),size(b,dim=2))

private function mult_real_trans_matrix_vector(a, b) result(c)

Arguments

Type IntentOptional Attributes Name
real(kind=long), intent(in) :: a(:,:)
real(kind=long), intent(in) :: b(:)

Return Value real(kind=long), (size(a,dim=2))