Defines how to assign a LocalEMFields type to a EMFields type
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(EMFields), | intent(inout) | :: | p1 | |||
| type(LocalEMFields), | intent(in) | :: | p2 |
subroutine flf_assign(p1, p2)
!+ Defines how to assign a [[LocalEMFields]] type to a [[EMFields]] type
type(LocalEMFields), 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 flf_assign