SUBROUTINE newrun
!
!   Additional data specific for a new run
!
  IMPLICIT NONE
!
!   Local vars and arrays
!________________________________________________________________________________
!  WRITE(*,'(a/)') '=== Define additional data for a new run ==='
!________________________________________________________________________________
END SUBROUTINE newrun