flf_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. flf_assign

public pure subroutine flf_assign(p1, p2)

Defines how to assign a LocalEMFields type to a EMFields type

Arguments

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

Called by

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

Contents

Source Code

flf_assign

Source Code

pure 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