SUBROUTINE restart
!
!   Additional data specific for a restart run
!
  use BASIC
  use mpi
  use constants
  IMPLICIT NONE
  Real(kind=db):: file_version=1.0
!
!   Local vars and arrays
!________________________________________________________________________________
!  WRITE(*,'(a/)') '=== Define additional data for a restart run ==='
!________________________________________________________________________________

  IF (mpirank .eq. 0 .and. newres.eq..false.) then
    CALL openf(resfile, fidres, real_prec='d')
    CALL getatt(fidres,"/data","file_version",file_version)
    if (file_version .lt. 2.0) then
      WRITE(*,*) " "
      WRITE(*,*) " "
      WRITE(*,*) " "
      WRITE(*,*) "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
      WRITE(*,*) "ERROR: This simulation was run with FENNECS version 1.0!"
      WRITE(*,*) "You need to use newres=1 to continue the simulation"
      WRITE(*,*) "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
      WRITE(*,*) " "
      WRITE(*,*) " "
      WRITE(*,*) " "
      call closef(fidres)
      CALL MPI_abort(MPI_COMM_WORLD, -1, ierr)
    end if
  end if
! 
END SUBROUTINE restart