dot_R0R1R1_rel_opts Function

private pure function dot_R0R1R1_rel_opts(u, v, option) result(a)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in), dimension(:), contiguous :: u
real(kind=rk), intent(in), dimension(:), contiguous :: v
character(len=*), intent(in) :: option

Return Value real(kind=rk)


Calls

proc~~dot_r0r1r1_rel_opts~~CallsGraph proc~dot_r0r1r1_rel_opts dot_R0R1R1_rel_opts proc~md_2 md_2 proc~dot_r0r1r1_rel_opts->proc~md_2 proc~md_3 md_3 proc~dot_r0r1r1_rel_opts->proc~md_3 proc~md_4 md_4 proc~dot_r0r1r1_rel_opts->proc~md_4 interface~dot dot proc~md_2->interface~dot

Called by

proc~~dot_r0r1r1_rel_opts~~CalledByGraph proc~dot_r0r1r1_rel_opts dot_R0R1R1_rel_opts interface~dot_opts dot_opts interface~dot_opts->proc~dot_r0r1r1_rel_opts proc~dot_r0r1r1_rel dot_R0R1R1_rel proc~dot_r0r1r1_rel->interface~dot_opts interface~dot_product dot_product interface~dot_product->proc~dot_r0r1r1_rel program~test_dot1 test_dot1 program~test_dot1->interface~dot_product program~test_dot2 test_dot2 program~test_dot2->interface~dot_product

Source Code

   pure function dot_R0R1R1_rel_opts(u,v, option) result(a)
      real(rk), dimension(:), intent(in), contiguous  :: u, v
      character(*),           intent(in)              :: option
      real(rk)                                        :: a

      select case (option)
       case ('m1')
         a = dot_product(u,v)
       case ('m2')
         a = md_2(u,v)
      case ('m3')
         a = md_3(u,v)
      case ('m4')
         a = md_4(u,v)
       case default
         a = dot_product(u,v)
      end select
   end function dot_R0R1R1_rel_opts