scalar_multiply Module Function

module function scalar_multiply(scalar, a) result(c)

Multiply scalar by autodiff array

Arguments

Type IntentOptional Attributes Name
real(kind=real32), intent(in) :: scalar
class(array_type), intent(in), target :: a

Return Value type(array_type), pointer


Source Code

  module function scalar_multiply(scalar, a) result(c)
    !! Multiply scalar by autodiff array
    implicit none
    real(real32), intent(in) :: scalar
    class(array_type), intent(in), target :: a
    type(array_type), pointer :: c

    c => multiply_scalar(a, scalar)
  end function scalar_multiply