plp_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. plp_assign

public subroutine plp_assign(p1, p2)

Defines how to assign a LocalProfiles type to a Profiles type

Arguments

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

Called by

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

Contents

Source Code

plp_assign

Source Code

subroutine plp_assign(p1, p2)
    !+ Defines how to assign a [[LocalProfiles]] type to a [[Profiles]] type
    type(LocalProfiles), intent(in) :: p2
    type(Profiles), 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
    p1%denn   = p2%denn

end subroutine plp_assign