Defines how to subtract two EMFields types
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(EMFields), | intent(in) | :: | p1 | |||
type(EMFields), | intent(in) | :: | p2 |
elemental function ff_subtract(p1, p2) result (p3)
!+ Defines how to subtract two [[EMFields]] types
type(EMFields), intent(in) :: p1,p2
type(EMFields) :: p3
p3%br = p1%br - p2%br
p3%bt = p1%bt - p2%bt
p3%bz = p1%bz - p2%bz
p3%er = p1%er - p2%er
p3%et = p1%et - p2%et
p3%ez = p1%ez - p2%ez
p3%dbr_dr = p1%dbr_dr - p2%dbr_dr
p3%dbr_dz = p1%dbr_dz - p2%dbr_dz
p3%dbt_dr = p1%dbt_dr - p2%dbt_dr
p3%dbt_dz = p1%dbt_dz - p2%dbt_dz
p3%dbz_dr = p1%dbz_dr - p2%dbz_dr
p3%dbz_dz = p1%dbz_dz - p2%dbz_dz
end function ff_subtract