btest.for

This Source-Navigator, an IDE for C/C++/Fortran/Java/Tcl/PHP/Python and a host of other languages.

      logical function btest(n,i)
      btest = .false.
      if(itbit(n,i+1).ne.0) btest = .true.
      end