write_summary Subroutine

  subroutine write_summary(unt, results, optimisations)
    use optimisation_config, only: optimisation_results_type
    use overrides, only: optimisations_overrides_type
    implicit none
    integer, intent(in) :: unt
    type(optimisation_results_type), intent(in) :: results
    type(optimisations_overrides_type), intent(in) :: optimisations
    write(unt, &
         '(E10.4," ",F10.6," ",E10.4," ",I6," ",A6," ",&
         &L1," ",L1," ",L1," ",L1," ",L1," ",L1," ",L1," ",&
         &L1," ",L1," ",L1," ",L1," ",A1," ",I7)') &
         results%time, &
         results%efficiency, &
         results%cost, &
         results%nproc, &
         optimisations%layout, &
         optimisations%opt_redist_nbk, &
         optimisations%opt_redist_persist, &
         optimisations%opt_redist_persist_overlap,&
         optimisations%local_field_solve, &
         optimisations%opt_source, &
         optimisations%intmom_sub,&
         optimisations%intspec_sub,&
         optimisations%field_subgath,&
         optimisations%do_smart_update,&
         optimisations%field_local_allreduce,&
         optimisations%field_local_allreduce_sub,&
         optimisations%field_option(1:1), &
         optimisations%minnrow
  end subroutine write_summary