サブルーチン内で、

return(next);

ってできますか？