pp_assign Subroutine

public subroutine pp_assign(p1, p2)

Defines how to assign Profiles types to eachother

Arguments

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

Called by

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

Contents

Source Code


Source Code

subroutine pp_assign(p1, p2)
    !+ Defines how to assign [[Profiles]] types to eachother
    type(Profiles), 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

end subroutine pp_assign