subroutine sub (array)
    dimension array(3)
end subroutine