btest.for

来自「这是一个Linux下的集成开发环境」· FOR 代码 · 共 5 行

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