bitget.F File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	bitget (i, n)
integer function	bitset (i, n)
integer function	bitunset (i, n)

Function/Subroutine Documentation

bitget()

integer function bitget	(	integer	i,
		integer	n )

Definition at line 36 of file bitget.F.

      INTEGER I,N
      INTEGER B,S,I2P(0:12)
      DATA i2p/1,2,4,8,16,32,64,128,256,512,1024,2048,4096/
 
      s = i/i2p(n)
      bitget = s - (s/2)*2
      RETURN 

bitset()

integer function bitset	(	integer	i,
		integer	n )

Definition at line 65 of file bitget.F.

      INTEGER I,N
      INTEGER B,S,I2P(0:12)
      DATA i2p/1,2,4,8,16,32,64,128,256,512,1024,2048,4096/
 
      s = i/i2p(n)
      IF(s - (s/2)*2 == 0) i = i + i2p(n)
      bitset = i
      RETURN 

bitunset()

integer function bitunset	(	integer	i,
		integer	n )

Definition at line 83 of file bitget.F.

      INTEGER I,N
      INTEGER B,S,I2P(0:12)
      DATA i2p/1,2,4,8,16,32,64,128,256,512,1024,2048,4096/
 
      s = i/i2p(n)
      IF(s - (s/2)*2 == 1) i = i - i2p(n)
      bitunset = i
      RETURN