#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:"//
     %  " ${1:-unknown}"//
     %  " ${EC_ARCH} $(date +"%a %b %e %G")"
	if (prnt) print *,version
	return
	end
EOT
