Defines how to assign EMFields types to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(EMFields), | intent(inout) | :: | p1 | |||
type(EMFields), | intent(in) | :: | p2 |
subroutine ff_assign(p1, p2)
!+ Defines how to assign [[EMFields]] types to eachother
type(EMFields), intent(in) :: p2
type(EMFields), intent(inout) :: p1
p1%br = p2%br
p1%bt = p2%bt
p1%bz = p2%bz
p1%er = p2%er
p1%et = p2%et
p1%ez = p2%ez
p1%dbr_dr = p2%dbr_dr
p1%dbr_dz = p2%dbr_dz
p1%dbt_dr = p2%dbt_dr
p1%dbt_dz = p2%dbt_dz
p1%dbz_dr = p2%dbz_dr
p1%dbz_dz = p2%dbz_dz
end subroutine ff_assign