program xversion
c
c     Exercise driver for subroutine version
c
c     B. Knapp, 2001-05-14
c
c
c     RCS data
c
c     $Header$  $Log$
c
      implicit none
c
      character*16 v1,v2
      external version
c
      call version(v1)
      write(*,'(a)') v1
c
c     Try again, to confirm immutability of rcs_ver
      call version(v2)
      write(*,'(a)') v2
c
      end