闭型子程序

closed subroutine