Line data    Source code

       1          533 :       logical function notwin(xw1,xw2,x) 
       2              : c
       3              : c  windowing function
       4              : c  returns true, if x is not in window defined by xw1 and xw2
       5              : c
       6              : c  Double precision version.
       7              : c  ++++++++++++++++++++++++
       8              : c
       9              : c  Dated 10/3/90.
      10              : c
      11              : c  Note: this double precision version of the routine has same name
      12              : c  as single precision version, but is distinguished by its file name
      13              : c
      14              :       implicit double precision(a-h,o-z)
      15          533 :       if(xw1.gt.xw2) then
      16          533 :         notwin = .false.
      17              :       else
      18            0 :         notwin = x.lt.xw1.or.x.gt.xw2
      19              :       end if
      20          533 :       return
      21              :       end