dot_R0R1R1_rel Function

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

Arguments

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

Return Value real(kind=rk)


Calls

proc~~dot_r0r1r1_rel~~CallsGraph proc~dot_r0r1r1_rel fordot::dot_R0R1R1_rel interface~dot_opts fordot_opts::dot_opts proc~dot_r0r1r1_rel->interface~dot_opts proc~dot_r0r1r1_rel_opts fordot_opts::dot_R0R1R1_rel_opts interface~dot_opts->proc~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~~CalledByGraph proc~dot_r0r1r1_rel fordot::dot_R0R1R1_rel interface~dot_product fordot::dot_product interface~dot_product->proc~dot_r0r1r1_rel

Source Code

   pure function dot_R0R1R1_rel(u,v,option) result(a)
      real(rk),     intent(in), contiguous :: u(:)
      real(rk),     intent(in), contiguous :: v(:)
      character(*), intent(in), optional   :: option
      real(rk)                             :: a
      if (present(option)) then
         a = dot_opts(u, v, option)
      else
         a = dot_opts(u, v, option='m2')
      end if
   end function dot_R0R1R1_rel