lff_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. lff_assign

public pure subroutine lff_assign(p1, p2)

Defines how to assign a EMFields type to a LocalEMFields type

Arguments

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

Called by

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

Contents

Source Code

lff_assign

Source Code

pure subroutine lff_assign(p1, p2)
    !+ Defines how to assign a [[EMFields]] type to a [[LocalEMFields]] type
    type(EMFields), intent(in)         :: p2
    type(LocalEMFields), 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 lff_assign