lplp_add Function

  1. fidasim.f90
  2. libfida
  3. lplp_add

public elemental function lplp_add(p1, p2) result(p3)

Defines how to add two LocalProfiles types

Arguments

TypeIntentOptionalAttributesName
type(LocalProfiles), intent(in) :: p1
type(LocalProfiles), intent(in) :: p2

Return Value type(LocalProfiles)


Called by

proc~~lplp_add~~CalledByGraph proc~lplp_add lplp_add interface~operator(+) operator(+) interface~operator(+)->proc~lplp_add

Contents

Source Code

lplp_add

Source Code

elemental function lplp_add(p1, p2) result (p3)
    !+ Defines how to add 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%deni   = p1%deni   + p2%deni
    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_add