Defines how to assign CFPDTable types to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(CFPDTable), | intent(out) | :: | p1 | |||
type(CFPDTable), | intent(in) | :: | p2 |
pure subroutine oo_assign(p1, p2)
!+ Defines how to assign [[CFPDTable]] types to eachother
type(CFPDTable), intent(in) :: p2
type(CFPDTable), intent(out) :: p1
p1%nenergy = p2%nenergy
p1%nrays = p2%nrays
p1%nsteps = p2%nsteps
p1%nchan = p2%nchan
p1%dl = p2%dl
p1%dE = p2%dE
p1%earray = p2%earray
p1%nactual = p2%nactual
p1%daomega = p2%daomega
p1%sightline = p2%sightline
end subroutine oo_assign