final_header Subroutine

  1. final_module.f90
  2. final_module
  3. final_header

public subroutine final_header(ifail)

Uses

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: ifail

Contents

Source Code

final_header

Source Code

  subroutine final_header(ifail)
    use process_output, only: oheadr
    use constants, only: nout
    implicit none

    integer, intent(in) :: ifail

    if (ifail == 1) then
      call oheadr(nout,'Final Feasible Point')
    else
      call oheadr(nout,'Final UNFEASIBLE Point')
    end if
  end subroutine final_header