(bind-func main
(let ((nx:i32 (convert 1e8)) ;1048576 ;; /* nx = size of array */
(idproc_ptr:i32* (alloc)) ;; /* idproc = processor id */
(idproc:i32 -1)
(nvp_ptr:i32* (alloc)) ;; /* nvp = number of processors obtained */
(nvp:i32 -1)
(irc_ptr:i32* (alloc))
(irc:i32 -1)