mat_mat_rel_ABT_opt Subroutine

public pure subroutine mat_mat_rel_ABT_opt(A, B, C, option)

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(:,:)
character(len=*), intent(in) :: option

Calls

proc~~mat_mat_rel_abt_opt~~CallsGraph proc~mat_mat_rel_abt_opt formatmul_opts::mat_mat_rel_ABT_opt proc~mm_abt_1 formatmul_opts::mm_ABT_1 proc~mat_mat_rel_abt_opt->proc~mm_abt_1 proc~mm_abt_10 formatmul_opts::mm_ABT_10 proc~mat_mat_rel_abt_opt->proc~mm_abt_10 proc~mm_abt_11 formatmul_opts::mm_ABT_11 proc~mat_mat_rel_abt_opt->proc~mm_abt_11 proc~mm_abt_12 formatmul_opts::mm_ABT_12 proc~mat_mat_rel_abt_opt->proc~mm_abt_12 proc~mm_abt_13 formatmul_opts::mm_ABT_13 proc~mat_mat_rel_abt_opt->proc~mm_abt_13 proc~mm_abt_2 formatmul_opts::mm_ABT_2 proc~mat_mat_rel_abt_opt->proc~mm_abt_2 proc~mm_abt_3 formatmul_opts::mm_ABT_3 proc~mat_mat_rel_abt_opt->proc~mm_abt_3 proc~mm_abt_4 formatmul_opts::mm_ABT_4 proc~mat_mat_rel_abt_opt->proc~mm_abt_4 proc~mm_abt_5 formatmul_opts::mm_ABT_5 proc~mat_mat_rel_abt_opt->proc~mm_abt_5 proc~mm_abt_6 formatmul_opts::mm_ABT_6 proc~mat_mat_rel_abt_opt->proc~mm_abt_6 proc~mm_abt_7 formatmul_opts::mm_ABT_7 proc~mat_mat_rel_abt_opt->proc~mm_abt_7 proc~mm_abt_8 formatmul_opts::mm_ABT_8 proc~mat_mat_rel_abt_opt->proc~mm_abt_8 proc~mm_abt_9 formatmul_opts::mm_ABT_9 proc~mat_mat_rel_abt_opt->proc~mm_abt_9 interface~gemm external_interfaces_matmul::gemm proc~mm_abt_2->interface~gemm

Called by

proc~~mat_mat_rel_abt_opt~~CalledByGraph proc~mat_mat_rel_abt_opt formatmul_opts::mat_mat_rel_ABT_opt proc~mat_mat_rel_abt formatmul::mat_mat_rel_ABT proc~mat_mat_rel_abt->proc~mat_mat_rel_abt_opt proc~mat_mat_rel formatmul::mat_mat_rel proc~mat_mat_rel->proc~mat_mat_rel_abt interface~matmul formatmul::matmul interface~matmul->proc~mat_mat_rel

Source Code

   pure subroutine mat_mat_rel_ABT_opt(A, B, C, option)
      real(rk), intent(in), contiguous :: A(:,:), B(:,:)
      real(rk), intent(inout), contiguous :: C(:,:)
      character(*), intent(in) :: option

      select case (option)
       case ('m1')
         call mm_ABT_1(A, B, C)
       case ('m2')
         call mm_ABT_2(A, B, C)
       case ('m3')
         call mm_ABT_3(A, B, C)
       case ('m4')
         call mm_ABT_4(A, B, C)
       case ('m5')
         call mm_ABT_5(A, B, C)
       case ('m6')
         call mm_ABT_6(A, B, C)
       case ('m7')
         call mm_ABT_7(A, B, C)
       case ('m8')
         call mm_ABT_8(A, B, C)
       case ('m9')
         call mm_ABT_9(A, B, C)
       case ('m10')
         call mm_ABT_10(A, B, C)
       case ('m11')
         call mm_ABT_11(A, B, C)
       case ('m12')
         call mm_ABT_12(A, B, C)
       case ('m13')
         call mm_ABT_13(A, B, C)
      end select

   end subroutine mat_mat_rel_ABT_opt