Defines how to assign LocalProfiles types to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(LocalProfiles), | intent(inout) | :: | p1 | |||
type(LocalProfiles), | intent(in) | :: | p2 |
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%vrot = p2%vrot
end subroutine lplp_assign