version Subroutine

subroutine version(unit)
   integer, intent(in) :: unit
   character(len=:), allocatable :: version_string
   call get_rmsd_version(string=version_string)
   write(unit, '(a, *(1x, a))') &
      & prog_name, "version", version_string
end subroutine version