lfs_divide Function

  1. fidasim.f90
  2. libfida
  3. lfs_divide

public function lfs_divide(p1, real_scalar) result(p3)

Defines how to divide LocalEMFields types by a scalar

Arguments

Type IntentOptional AttributesName
type(LocalEMFields), intent(in) :: p1
real(kind=Float64), intent(in) :: real_scalar

Return Value type(LocalEMFields)


Called by

proc~~lfs_divide~~CalledByGraph proc~lfs_divide lfs_divide interface~operator(SLASH) operator(/) interface~operator(SLASH)->proc~lfs_divide

Contents

Source Code

lfs_divide

Source Code

function lfs_divide(p1, real_scalar) result (p3)
    !+ Defines how to divide [[LocalEMFields]] types by a scalar
    type(LocalEMFields), intent(in) :: p1
    real(Float64), intent(in)       :: real_scalar
    type(LocalEMFields)             :: p3

    p3 = p1*(1.d0/real_scalar)

end function lfs_divide