WriteVectorFloat.F

c**********************************************************************
#include "author.inc"
c*    $Id: WriteVectorFloat.F,v 1.3 1996/01/31 17:37:01 turner Exp $
c*
c*    Writes out vector of floating-point values.
c*
c*    <PARAMETER LIST>
c*
c*     Input:
c*      lu - logical unit to which to write
c*      n - number of elements to write out
c*      x - vector
c*      title - character description
c*
c*     Output:
c*      status - return status
c*
c*    <SUBROUTINES REQUIRED>
c*
c*     JT_FlushUnit
c*
#include "copyright.inc"
c**********************************************************************
      subroutine JT_WriteVectorFloat (lu, n, x, title, status)
      implicit none
c
c ... Input:
      integer lu, n
      real x(n)
      character*(*) title
c
c ... Output:
      integer status
c
c ... Local:
      integer i
c
      write(lu,*)
      write(lu,*) title
      write(lu,*)
      do i=1,n
       write(lu,500) i, x(i)
      enddo
c
      call JT_FlushUnit (lu, status)
      return
c
  500 format (t2, i7, 1p, 3x, e16.7)
      end