Defines how to multiply LocalEMFields types by a scalar
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=Float64), | intent(in) | :: | real_scalar | |||
type(LocalEMFields), | intent(in) | :: | p1 |
elemental function slf_multiply(real_scalar, p1) result (p3)
!+ Defines how to multiply [[LocalEMFields]] types by a scalar
type(LocalEMFields), intent(in) :: p1
real(Float64), intent(in) :: real_scalar
type(LocalEMFields) :: p3
p3 = p1*real_scalar
end function slf_multiply