symmetric_vacuum_bottom_field Function

public pure function symmetric_vacuum_bottom_field(plan, charge) result(field)

Arguments

Type IntentOptional Attributes Name
type(periodic_zero_mode_plan_type), intent(in) :: plan
real(kind=dp), intent(in) :: charge(:)

Return Value real(kind=dp)


Source Code

  pure real(dp) function symmetric_vacuum_bottom_field(plan, charge) result(field)
    type(periodic_zero_mode_plan_type), intent(in) :: plan
    real(dp), intent(in) :: charge(:)

    field = -sum(charge)/(2.0_dp*eps0*plan%area_xy)
  end function symmetric_vacuum_bottom_field