Defines how to multiply LocalEMFields types by a scalar
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(LocalEMFields), | intent(in) | :: | p1 | |||
real(kind=Float64), | intent(in) | :: | real_scalar |
function lfs_multiply(p1, real_scalar) 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%pos = p1%pos * real_scalar
p3%uvw = p1%uvw * real_scalar
p3%br = p1%br * real_scalar
p3%bt = p1%bt * real_scalar
p3%bz = p1%bz * real_scalar
p3%er = p1%er * real_scalar
p3%et = p1%et * real_scalar
p3%ez = p1%ez * real_scalar
p3%b_abs = p1%b_abs * real_scalar
p3%e_abs = p1%e_abs * real_scalar
p3%a_norm = p1%a_norm
p3%b_norm = p1%b_norm
p3%c_norm = p1%c_norm
p3%e_norm = p1%e_norm
p3%dbr_dr = p1%dbr_dr * real_scalar
p3%dbr_dz = p1%dbr_dz * real_scalar
p3%dbt_dr = p1%dbt_dr * real_scalar
p3%dbt_dz = p1%dbt_dz * real_scalar
p3%dbz_dr = p1%dbz_dr * real_scalar
p3%dbz_dz = p1%dbz_dz * real_scalar
end function lfs_multiply