module errs
use, intrinsic:: iso_fortran_env, only: error_unit
use cinter, only: endwin
implicit none (type, external)
contains
subroutine err(msg)
character(*),intent(in) :: msg
call endwin()
write(error_unit,*) msg
error stop
end subroutine err
end module