aboutsummaryrefslogtreecommitdiff
path: root/plotlib/util-ops.f
blob: c16a49f256fcc7030bf24850164b94a16a375b43 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
C--- Replacement functions for Fortran's that lack RSHIFT,LSHIFT,AND
C     Version 4.46 11/28/01

      INTEGER FUNCTION RSHIFT(I1,N)
      RSHIFT = ISHFT(I1,-N)
      RETURN
      END

      INTEGER FUNCTION LSHIFT(I1,N)
      LSHIFT = ISHFT(I1,N)
      RETURN
      END

      INTEGER FUNCTION AND(I1,I2)
      AND = IAND(I1,I2)
      RETURN
      END