subroutine ephem_arg( argc, argv )
!
!     Argument break-out for Unix IDL call_external calls of ephem.
!
!     B. Knapp, 1996-01-31
!
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      implicit none
      integer argc, argv(7)
      external ephem
!
      call ephem(
     &   %val(argv(1)), %val(argv(2)), %val(argv(3)), %val(argv(4)),
     &   %val(argv(5)), %val(argv(6)), %val(argv(7)) )
!
      return
      end