subroutine version(v)
c
c     Returns the RCS revision
c
c     B. Knapp, 2001-05-14
c
c
c     RCS data
c
c     $Header: /home/betelgeuse/knapp/src/astronomy/version.f,v 1.0 2001/05/14 16:02:38 knapp Exp $
c
c     $Log: version.f,v $
c     Revision 1.0  2001/05/14 16:02:38  knapp
c     Initial revision
c
c
c
      implicit none
c
      character*16 v
      character*64 rcs_ver
     &   /'$Revision: 1.0 $'/
      integer j0,j1
c
      j0 = index(rcs_ver,':')+2
      j1 = index(rcs_ver(2:64),'$')-1
d     write(*,*) j0,j1
      v = rcs_ver(j0:j1)
c
      return
      end