kmanbit.f File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	kbitest (i, bit)
subroutine	ksetbit (i, bit)
subroutine	krsetbit (i, bit)
subroutine	krevbit (i, bit)

Function/Subroutine Documentation

kbitest()

logical function kbitest	(	integer	i,
		integer	bit
	)

Definition at line 13 of file kmanbit.f.

References false.

Referenced by __read_show_skel.f__().

      implicit none
      integer i  ! input.  it's bit-th bit is tested.
      integer bit ! input.  (1<- bit <=31) 
!       function value. .true. if bit-th bit of i is on.
!                       else .false.
!                       if bit is outside of the range,
!                       .false. is returned.
!
      integer j, k
#ifdef  ABSOFT
      kbitest = btest(i, bit-1)
#else
      
      if( bit .le. 0 .or. bit .ge. 32) then
         kbitest = .false.
      else
         j = lshift(i, 32-bit)
         k = rshift(j, 31)
         kbitest = k .ne. 0
      endif
#endif

Here is the caller graph for this function:

krevbit()

subroutine krevbit	(	integer	i,
		integer	bit
	)

Definition at line 70 of file kmanbit.f.

!       reverse bit-th bit of i.
      implicit none
      integer i  !  input/output.
      integer bit  !  input.  bit-th position of i is made to be reverted
!
      logical kbitest
      integer j, k
#ifdef ABSOFT
      if(kbitest(i, bit)) then
         i = ibclr(i, bit-1)
      else
         i = ibset(i, bit-1)
      endif
#else
      if(bit .gt. 0 .and. bit .lt. 32) then
         if( kbitest(i, bit) ) then
            i = i - 2**(bit-1)
         else
            i = i + 2**(bit-1)
         endif
      endif
#endif

krsetbit()

subroutine krsetbit	(	integer	i,
		integer	bit
	)

Definition at line 53 of file kmanbit.f.

Referenced by chooknepint(), cmemonode(), and setpcode().

      implicit none
      integer i  !  input/output.
      integer bit  !  input.  bit-th position of i is made to be off.
!
      logical kbitest
      integer j, k
#ifdef ABSOFT
      i = ibclr(i, bit-1)
#else
      if(bit .gt. 0 .and. bit .lt. 32) then
         if( kbitest(i, bit) ) then
            i = i - 2**(bit-1)
         endif
      endif
#endif

Here is the caller graph for this function:

ksetbit()

subroutine ksetbit	(	integer	i,
		integer	bit
	)

Definition at line 36 of file kmanbit.f.

Referenced by chooknepint(), cmemonode(), and setpcode().

      implicit none
      integer i  !  input/output.
      integer bit  !  input.  bit-th position of i is made to be on.
!
      logical kbitest
      integer j, k
#ifdef ABSOFT
      i = ibset(i, bit-1)
#else
      if(bit .gt. 0 .and. bit .lt. 32) then
         if( .not. kbitest(i, bit) ) then
            i = i + 2**(bit-1)
         endif
      endif
#endif

Here is the caller graph for this function: