lflf_assign Subroutine

  1. fidasim.f90
  2. libfida
  3. lflf_assign

public pure subroutine lflf_assign(p1, p2)

Defines how to assign LocalEMFields types to eachother

Arguments

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

Called by

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

Contents

Source Code

lflf_assign

Source Code

pure 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