From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/osb/bswap2.f | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 sys/osb/bswap2.f

(limited to 'sys/osb/bswap2.f')

diff --git a/sys/osb/bswap2.f b/sys/osb/bswap2.f
new file mode 100644
index 00000000..700c8498
--- /dev/null
+++ b/sys/osb/bswap2.f
@@ -0,0 +1,20 @@
+c BSWAP2 - Move bytes from array "a" to array "b", swapping successive
+c pairs of bytes.
+
+	subroutine bswap2 (a, aoff, b, boff, nbytes)
+
+	character*1 a(*), b(*), temp
+	integer	aoff, boff, nbytes, i
+	integer aoff1, boff1
+
+		aoff1 = aoff + 1
+		boff1 = boff + 1
+
+ 		do 10 i = 0, nbytes-1, 2
+		    temp = a(aoff1+i)
+		    if (i .ne. nbytes) then
+			b(boff1+i) = a(aoff+i)
+		    endif
+		    b(boff+i) = temp
+ 10		continue
+	end
-- 
cgit