c-----------------------------------------------------------------------
c     flush provides a wrapper for whatever the native flush routine is,
c     if it is not called flush.
c-----------------------------------------------------------------------
c      For compilers that complain about files containing no source
c      code at all, here is a stub routine....sjs 3/24/06
c-----------------------------------------------------------------------
c
       subroutine stub

       return
       end
c