write_exit_file Subroutine

private subroutine write_exit_file(self)

Uses

Write exit file containing exit code and message

Type Bound

exit_code

Arguments

Type IntentOptional Attributes Name
class(exit_code), intent(in) :: self

Contents

Source Code


Source Code

  subroutine write_exit_file(self)
    use file_utils, only: exit_reason_unit
    implicit none
    class(exit_code), intent(in) :: self
    write(exit_reason_unit(),*) self%create_message()
  end subroutine write_exit_file