utility_zdotu Function

  1. utility.F90
  2. w90_utility
  3. utility_zdotu

public function utility_zdotu(a, b)

Arguments

Type IntentOptional AttributesName
complex(kind=dp), intent(in), dimension(:):: a
complex(kind=dp), intent(in), dimension(:):: b

Return Value complex(kind=dp)


Called by

proc~~utility_zdotu~~CalledByGraph proc~utility_zdotu utility_zdotu proc~berry_get_sc_klist berry_get_sc_klist proc~berry_get_sc_klist->proc~utility_zdotu proc~berry_main berry_main proc~berry_main->proc~berry_get_sc_klist

Contents

Source Code

utility_zdotu

Source Code

  function utility_zdotu(a, b)
    complex(kind=dp), intent(in), dimension(:)  :: a, b
    complex(kind=dp) :: utility_zdotu
    utility_zdotu = sum(a*b)
    return
  end function utility_zdotu