Defines how to divide Profiles types by a scalar
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(Profiles), | intent(in) | :: | p1 | |||
real(kind=Float64), | intent(in) | :: | real_scalar |
function ps_divide(p1, real_scalar) result (p3)
!+ Defines how to divide [[Profiles]] types by a scalar
type(Profiles), intent(in) :: p1
real(Float64), intent(in) :: real_scalar
type(Profiles) :: p3
p3 = p1*(1.d0/real_scalar)
end function ps_divide