1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- a/plotlib/ps_subs.f
+++ b/plotlib/ps_subs.f
@@ -559,7 +559,7 @@
c in the iout array (3,1,3,1,3,1,3,1)
c Note: the bit mask is shifted to always start counting on a '1' bit.
c
-c--- Uses the library routines and() and rshift() for bit manipulation
+c--- Uses the library routines and() and ishft() for bit manipulation
c which are present in most fortran libraries as extensions to f77.
c
dimension iout(*)
@@ -570,7 +570,7 @@
ibitold = and(1,imask)
if(ibitold.NE.0) go to 5
nshft = n
- imask = rshift(imask,1)
+ imask = ishft(imask,-1)
end do
c
5 nout = 0
@@ -594,7 +594,7 @@
c
ibitold = ibit
nbits = nbits + 1
- imask = rshift(imask,1)
+ imask = ishft(imask,-1)
end do
c--- Add final bit(s) to end of 16 bits checked
c--- Now append any zero bits shifted out originally
|
GitWeb
