Defines how to assign LocalEMFields types to eachother
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(LocalEMFields), | intent(inout) | :: | p1 | |||
type(LocalEMFields), | intent(in) | :: | p2 |
subroutine lflf_assign(p1, p2)
!+ Defines how to assign [[LocalEMFields]] types to eachother
type(LocalEMFields), intent(in) :: p2
type(LocalEMFields), intent(inout) :: p1
p1%pos = p2%pos
p1%uvw = p2%uvw
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%b_abs = p2%b_abs
p1%e_abs = p2%e_abs
p1%a_norm = p2%a_norm
p1%b_norm = p2%b_norm
p1%c_norm = p2%c_norm
p1%e_norm = p2%e_norm
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 lflf_assign