lplp_subtract Function

  1. fidasim.f90
  2. libfida
  3. lplp_subtract

public function lplp_subtract(p1, p2) result(p3)

Defines how to subtract two LocalProfiles types

Arguments

Type IntentOptional AttributesName
type(LocalProfiles), intent(in) :: p1
type(LocalProfiles), intent(in) :: p2

Return Value type(LocalProfiles)


Called by

proc~~lplp_subtract~~CalledByGraph proc~lplp_subtract lplp_subtract interface~operator(-) operator(-) interface~operator(-)->proc~lplp_subtract

Contents

Source Code

lplp_subtract

Source Code

function lplp_subtract(p1, p2) result (p3)
    !+ Defines how to subtract two [[LocalProfiles]] types
    type(LocalProfiles), intent(in) :: p1,p2
    type(LocalProfiles)             :: p3

    p3%pos    = p1%pos    - p2%pos
    p3%uvw    = p1%uvw    - p2%uvw
    p3%dene   = p1%dene   - p2%dene
    p3%ti     = p1%ti     - p2%ti
    p3%te     = p1%te     - p2%te
    p3%denp   = p1%denp   - p2%denp
    p3%denf   = p1%denf   - p2%denf
    p3%denimp = p1%denimp - p2%denimp
    p3%zeff   = p1%zeff   - p2%zeff
    p3%vr     = p1%vr     - p2%vr
    p3%vt     = p1%vt     - p2%vt
    p3%vz     = p1%vz     - p2%vz
    p3%denn   = p1%denn   - p2%denn
    p3%vrot   = p1%vrot   - p2%vrot

end function lplp_subtract