slp_multiply Function

  1. fidasim.f90
  2. libfida
  3. slp_multiply

public elemental function slp_multiply(real_scalar, p1) result(p3)

Defines how to multiply LocalProfiles types by a scalar

Arguments

TypeIntentOptionalAttributesName
real(kind=Float64), intent(in) :: real_scalar
type(LocalProfiles), intent(in) :: p1

Return Value type(LocalProfiles)


Called by

proc~~slp_multiply~~CalledByGraph proc~slp_multiply slp_multiply interface~operator(ASTERISK) operator(*) interface~operator(ASTERISK)->proc~slp_multiply

Contents

Source Code

slp_multiply

Source Code

elemental function slp_multiply(real_scalar, p1) 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 = p1*real_scalar

end function slp_multiply