oo_assign Subroutine

public pure subroutine oo_assign(p1, p2)

Defines how to assign CFPDTable types to eachother

Arguments

TypeIntentOptionalAttributesName
type(CFPDTable), intent(out) :: p1
type(CFPDTable), intent(in) :: p2

Called by

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

Contents

Source Code


Source Code

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