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 fordot_opts::dot_R0R1R1_rel_opts proc~md_2 fordot_opts::md_2 proc~dot_r0r1r1_rel_opts->proc~md_2 proc~md_3 fordot_opts::md_3 proc~dot_r0r1r1_rel_opts->proc~md_3 proc~md_4 fordot_opts::md_4 proc~dot_r0r1r1_rel_opts->proc~md_4 interface~dot external_interfaces_dot::dot proc~md_2->interface~dot

Called by

proc~~dot_r0r1r1_rel_opts~~CalledByGraph proc~dot_r0r1r1_rel_opts fordot_opts::dot_R0R1R1_rel_opts interface~dot_opts fordot_opts::dot_opts interface~dot_opts->proc~dot_r0r1r1_rel_opts proc~dot_r0r1r1_rel fordot::dot_R0R1R1_rel proc~dot_r0r1r1_rel->interface~dot_opts interface~dot_product fordot::dot_product interface~dot_product->proc~dot_r0r1r1_rel

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