mm_ATB_12 Subroutine

private pure subroutine mm_ATB_12(A, B, C)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in), contiguous :: A(:,:)
real(kind=rk), intent(in), contiguous :: B(:,:)
real(kind=rk), intent(inout), contiguous :: C(:,:)

Called by

proc~~mm_atb_12~~CalledByGraph proc~mm_atb_12 formatmul_opts::mm_ATB_12 proc~mat_mat_rel_atb_opt formatmul_opts::mat_mat_rel_ATB_opt proc~mat_mat_rel_atb_opt->proc~mm_atb_12 proc~mat_mat_rel_atb formatmul::mat_mat_rel_ATB proc~mat_mat_rel_atb->proc~mat_mat_rel_atb_opt proc~mat_mat_rel formatmul::mat_mat_rel proc~mat_mat_rel->proc~mat_mat_rel_atb interface~matmul formatmul::matmul interface~matmul->proc~mat_mat_rel

Source Code

   pure subroutine mm_ATB_12(A, B, C)
      real(rk), intent(in), contiguous :: A(:,:), B(:,:)
      real(rk), intent(inout), contiguous :: C(:,:)

      interface
         pure subroutine impure_mm_ATB_12(f_a, f_b, f_c)
            import rk
            real(rk), intent(in) :: f_a(:,:), f_b(:,:)
            real(rk), intent(inout) :: f_c(:,:)
         end subroutine impure_mm_ATB_12
      end interface

      call impure_mm_ATB_12(a, b, c)

   end subroutine mm_ATB_12