SUBROUTINE inital
!
USE basic
USE beam
USE fields
USE mpihelper
USE maxwellsource
!
!   Set initial conditions
!
  IMPLICIT NONE
!
!________________________________________________________________________________
  IF(mpirank .eq. 0) WRITE(*,'(a/)') '=== Set initial conditions ==='
!________________________________________________________________________________
! 
  ! Init Electric and Magnetic Fields
  CALL creat_parts(parts,nplasma)
  CALL load_parts ! will call the localisation
  CALL fields_init
  IF (nlmaxwellsource) CALL maxwellsource_init(lu_in, time)
  CALL rhscon
  CALL poisson
  CALL adapt_vinit
  CALL diagnostics

!________________________________________________________________________________
END SUBROUTINE inital