OpenUnitAppend.F

c**********************************************************************
#include "author.inc"
c*    $Id: OpenUnitAppend.F,v 1.8 1995/07/30 17:57:28 turner Exp $
c*
c*    Opens logical unit and positions file pointer at end of file.
c*
c*    <PARAMETER LIST>
c*
c*     Input:
c*      lu - logical unit to which to write
c*      filename - name of file to which to write
c*
c*     Output:
c*      status - return status
c*
#include "copyright.inc"
c**********************************************************************
      subroutine JT_OpenUnitAppend (lu, filename, status)
      implicit none
c
c ... Input:
      integer lu
      character*(*) filename
c
c ... Output:
      integer status
c
      open (unit=lu, file=filename, status='unknown'
#ifdef cray
     &      , position='append')
#else
# ifdef fujitsu
     &      , position='append')
# else
#  ifdef aix
     &      )
#  else
     &      , access='append')
#  endif
# endif
#endif
c
      status = 0
      return
      end