write_separator Subroutine

private subroutine write_separator(report_unit)

Writes a standard section separator

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	report_unit

Contents

Source Code

write_separator

Source Code

  subroutine write_separator(report_unit)
    implicit none
    integer, intent(in) :: report_unit
    write (report_unit, *)
    write (report_unit, fmt="('------------------------------------------------------------')")
    write (report_unit, *)
  end subroutine write_separator