operator(*) Interface

  1. vector.f90
  2. vector_m
  3. operator(*)

public interface operator(*)

Extend multiplication operator to allow a scalar times a vector such that


Contents

Module Procedures


Module Procedures

private elemental function int_times_vector(scalar, vec) result(v2)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: scalar
class(vector), intent(in) :: vec

Return Value type(vector)

private elemental function r32_times_vector(scalar, vec) result(v2)

Arguments

Type IntentOptional AttributesName
real(kind=real32), intent(in) :: scalar
class(vector), intent(in) :: vec

Return Value type(vector)

private elemental function r64_times_vector(scalar, vec) result(v2)

Arguments

Type IntentOptional AttributesName
real(kind=real64), intent(in) :: scalar
class(vector), intent(in) :: vec

Return Value type(vector)