lplp_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. lplp_assign

public subroutine lplp_assign(p1, p2)

Defines how to assign LocalProfiles types to eachother

Arguments

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

Called by

proc~~lplp_assign~~CalledByGraph proc~lplp_assign lplp_assign interface~assignment(=) assignment(=) interface~assignment(=)->proc~lplp_assign

Contents

Source Code

lplp_assign

Source Code

subroutine lplp_assign(p1, p2)
    !+ Defines how to assign [[LocalProfiles]] types to eachother
    type(LocalProfiles), intent(in)    :: p2
    type(LocalProfiles), intent(inout) :: p1

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

end subroutine lplp_assign