lpp_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. lpp_assign

public subroutine lpp_assign(p1, p2)

Defines how to assign a Profiles type to a LocalProfiles type

Arguments

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

Called by

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

Contents

Source Code

lpp_assign

Source Code

subroutine lpp_assign(p1, p2)
    !+ Defines how to assign a [[Profiles]] type to a [[LocalProfiles]] type
    type(Profiles), intent(in)         :: p2
    type(LocalProfiles), intent(inout) :: p1

    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

end subroutine lpp_assign