Defines how to multiply Profiles types by a scalar
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(Profiles), | intent(in) | :: | p1 | |||
real(kind=Float64), | intent(in) | :: | real_scalar |
function ps_multiply(p1, real_scalar) result (p3)
!+ Defines how to multiply [[Profiles]] types by a scalar
type(Profiles), intent(in) :: p1
real(Float64), intent(in) :: real_scalar
type(Profiles) :: p3
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
end function ps_multiply