LATESTREV=`svnlook youngest /home/dormrb02/SVN-depots/pub`
cat <<EOT >rmnlib_version.f
***s/p rmnlib_version
*
	subroutine rmnlib_version(version,prnt)
*
*Auteur M. Lepine - RPN - Octobre 1998
*
*Objet
*  Retourner un identificateur de version de la programmatheque RMNLIB
*  qui servira de signature pour les differents programmes qui utilisent 
*  la programmatheque.
*
	character *(*) version
	logical prnt
*
        version = 
     %  "  RMNLIB  -  Release:"//
     %  " ${RMNRLS} (Rev ${SVNREV:-${LATESTREV}})"//
     %  " EC_ARCH_VAR Date_of_Build"
	if (prnt) print *,version
	return
	end
EOT
