md_4 Function

private pure function md_4(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_4~~CalledByGraph proc~md_4 fordot_opts::md_4 proc~dot_r0r1r1_rel_opts fordot_opts::dot_R0R1R1_rel_opts proc~dot_r0r1r1_rel_opts->proc~md_4 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_4(u,v) result(a)
      real(rk), dimension(:), intent(in), contiguous :: u, v
      real(rk) :: a
      a = sum(u*v)
   end function md_4