Defines how to multiply LocalProfiles types by a scalar
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(LocalProfiles), | intent(in) | :: | p1 | |||
| real(kind=Float64), | intent(in) | :: | real_scalar |
function lps_multiply(p1, real_scalar) result (p3)
!+ Defines how to multiply [[LocalProfiles]] types by a scalar
type(LocalProfiles), intent(in) :: p1
real(Float64), intent(in) :: real_scalar
type(LocalProfiles) :: p3
p3%pos = p1%pos * real_scalar
p3%uvw = p1%uvw * real_scalar
p3%dene = p1%dene * real_scalar
p3%ti = p1%ti * real_scalar
p3%te = p1%te * real_scalar
p3%denp = p1%denp * real_scalar
p3%denf = p1%denf * real_scalar
p3%denimp = p1%denimp * real_scalar
p3%zeff = p1%zeff * real_scalar
p3%vr = p1%vr * real_scalar
p3%vt = p1%vt * real_scalar
p3%vz = p1%vz * real_scalar
p3%denn = p1%denn * real_scalar
p3%vrot = p1%vrot * real_scalar
end function lps_multiply