!==============================================================================!
  subroutine Info_Mod_Bulk_Start()
!------------------------------------------------------------------------------!
!   Essentially creates a box in which iteration residuls will be written.     !
!------------------------------------------------------------------------------!
!----------------------------------[Modules]-----------------------------------!
! use pro_mod    
!------------------------------------------------------------------------------!
  implicit none
!---------------------------------[Arguments]----------------------------------!
  integer :: n  ! inner iteration
!-----------------------------------[Locals]-----------------------------------!
  integer :: i
!==============================================================================!

  ! Create a frame
  do i = 1, L_LINE, L_LINE-1
    bulk_info % line_lead (i:i) = '#'
    bulk_info % lines(1)  (i:i) = '#'
    bulk_info % line_sep  (i:i) = '#'
    bulk_info % lines(2)  (i:i) = '#'
    bulk_info % lines(3)  (i:i) = '#'
    bulk_info % line_trail(i:i) = '#'
  end do

  do i = 2, L_LINE-1
    bulk_info % line_lead (i:i) = '='
    bulk_info % line_sep  (i:i) = '-'
    bulk_info % line_trail(i:i) = '-'
  end do

  ! Create separators
  bulk_info % line_lead(L_LINE/2+1:L_LINE/2+1) = '+'
  bulk_info % lines(1) (L_LINE/2+1:L_LINE/2+1) = '|'
  bulk_info % line_sep (L_LINE/2+1:L_LINE/2+1) = '+'

  bulk_info % line_sep  (27:27) = '+'
  bulk_info % lines(2)  (27:27) = '|'
  bulk_info % lines(3)  (27:27) = '|'
  bulk_info % line_trail(27:27) = '+'

  bulk_info % line_sep  (54:54) = '+'
  bulk_info % lines(2)  (54:54) = '|'
  bulk_info % lines(3)  (54:54) = '|'
  bulk_info % line_trail(54:54) = '+'

  end subroutine
