md_3 Function

private pure function md_3(u, v) result(a)

Arguments

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

Return Value real(kind=rk)


Called by

proc~~md_3~~CalledByGraph proc~md_3 fordot_opts::md_3 proc~dot_r0r1r1_rel_opts fordot_opts::dot_R0R1R1_rel_opts proc~dot_r0r1r1_rel_opts->proc~md_3 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 md_3(u,v) result(a)
      real(rk), dimension(:), intent(in), contiguous :: u, v
      real(rk) :: a
      integer :: i

      a = 0.0_rk
      do i = 1, size(u)
         a = a + u(i)*v(i)
      end do
   end function md_3