subroutine helios_arr(jd, p)
!
!     Obtain the results from subroutine helios as an array
!     of doubles (for use by Java JNI).
!
!     B. Knapp, 2001-01-09.
!
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      implicit none
!
!     Input
      real*8 jd
!
!     Output
      real*8 p(6)
!
!     External
      external helios
!
!     Make the call
      call helios(jd, p(1), p(2), p(3), p(4), p(5), p(6))
      return
      end