md_2 Function

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

Uses

  • proc~~md_2~~UsesGraph proc~md_2 fordot_opts::md_2 module~external_interfaces_dot external_interfaces_dot proc~md_2->module~external_interfaces_dot kinds kinds module~external_interfaces_dot->kinds

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)


Calls

proc~~md_2~~CallsGraph proc~md_2 fordot_opts::md_2 interface~dot external_interfaces_dot::dot proc~md_2->interface~dot

Called by

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

      a = dot(size(u),u,1,v,1)
   end function md_2