Line data    Source code

       1           46 :       logical function notwni(kw1,kw2,k) 
       2              : c
       3              : c  windowing function
       4              : c  returns true, if k is not in window defined by kw1 and kw2
       5              : c
       6           46 :       if(kw1.gt.kw2) then
       7            0 :         notwni = .false.
       8              :       else
       9           46 :         notwni = k.lt.kw1.or.k.gt.kw2
      10              :       end if
      11           46 :       return
      12              :       end