sys/gio/nspp/sysint/mcswap.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# MCSWAP -- Swap the instructions in a metacode array.

procedure mcswap (a, npix)

int	a[npix]
int	npix
int	i, temp

begin
	do i = 1, npix, 2 {
	    temp = a[i]
	    a[i] = a[i+1]
	    a[i+1] = temp
	}
end