FlushUnit.F

#ifdef aix
#define FLUSH FLUSH_
#endif
c**********************************************************************
#include "author.inc"
c*    $Id: FlushUnit.F,v 1.8 1996/01/31 17:35:59 turner Exp $
c*
c*    Flushes the contents of the buffer for logical unit lu.
c*
c*    <PARAMETER LIST>
c*
c*     Input:
c*      lu - logical unit to flush
c*
c*     Output:
c*      status - return status
c*
#include "copyright.inc"
c**********************************************************************
      subroutine JT_FlushUnit (lu, status)
      implicit none
c
c ... Input:
      integer lu
c
c ... Output:
      integer status
c
      status = 0
c
#ifndef dont_flush
# ifdef cray
      call FLUSH (lu, status)
# elif !defined(hpux)
      call FLUSH (lu)
# endif
#endif
c
      return
      end