ff_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. ff_assign

public pure subroutine ff_assign(p1, p2)

Defines how to assign EMFields types to eachother

Arguments

TypeIntentOptionalAttributesName
type(EMFields), intent(inout) :: p1
type(EMFields), intent(in) :: p2

Called by

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

Contents

Source Code

ff_assign

Source Code

pure 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