integer, pointer :: ip(:)

      call alloc_ip(ip)
      
      end
      
      subroutine alloc_ip(ip)
      integer, pointer :: ip(:)
      
      allocate(ip(10))
      
      end