Defines how to assign Profiles types to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(Profiles), | intent(inout) | :: | p1 | |||
type(Profiles), | intent(in) | :: | p2 |
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