subroutine program finished