operator(.mt.) Interface

public interface operator(.mt.)

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


Module Procedures

private function mult_real_matrix_trans_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=1),size(b,dim=1))