write_nonlinear_glo_header Subroutine

  subroutine write_nonlinear_glo_header(report_unit)
    implicit none
    integer, intent(in) :: report_unit
    write (report_unit, *)
    write (report_unit, fmt="('------------------------------------------------------------------------------------------------------------------------------------------------')")
    write (report_unit, fmt="('|   Number of      | Dimension | Percentage data moved | Recommend unbalanced_xxf | xxf unbalanced | Recommend unbalanced_yxf | yxf unbalanced |')")
    write (report_unit, fmt="('|   processes      |   split   | by MPI from xxf->yxf  |    T = true F = false    |   amount (%)   |    T = true F = false    |   amount (%)   |')")
    write (report_unit, fmt="('------------------------------------------------------------------------------------------------------------------------------------------------')")
  end subroutine write_nonlinear_glo_header