!****************************************************************************
! �␳�d�E���E����
!****************************************************************************
subroutine electric_boundary_condition
   use fdtd
   implicit none

   integer :: i,j

   return
end subroutine

!****************************************************************************
! �␳���E���E����
!****************************************************************************
subroutine magnetic_boundary_condition
   use fdtd
   implicit none

   integer :: i,j

   return
end subroutine

!
! End of file
!