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 dot_R0R1R1_rel interface~dot_opts dot_opts proc~dot_r0r1r1_rel->interface~dot_opts proc~dot_r0r1r1_rel_opts dot_R0R1R1_rel_opts interface~dot_opts->proc~dot_r0r1r1_rel_opts proc~md_2 md_2 proc~dot_r0r1r1_rel_opts->proc~md_2 proc~md_3 md_3 proc~dot_r0r1r1_rel_opts->proc~md_3 proc~md_4 md_4 proc~dot_r0r1r1_rel_opts->proc~md_4 interface~dot dot proc~md_2->interface~dot

Called by

proc~~dot_r0r1r1_rel~~CalledByGraph proc~dot_r0r1r1_rel dot_R0R1R1_rel interface~dot_product dot_product interface~dot_product->proc~dot_r0r1r1_rel program~test_dot1 test_dot1 program~test_dot1->interface~dot_product program~test_dot2 test_dot2 program~test_dot2->interface~dot_product

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