Added output of current subversion repository version at runtime, with...

Added output of current subversion repository version at runtime, with necessary scripts and module files

src/DOUAR.f90

@@ -15,6 +15,7 @@ program DOUAR
 
 use threads
 use definitions
+use version
 !use mpi
 
 implicit none
@@ -138,7 +139,8 @@ if (iproc.eq.0) then
   write (*,'(a)') '!      888  .d88P Y88b. .d88P Y88b. .d88P d8888888888 888  T88b        |'
   write (*,'(a)') '!      8888888P"   "Y88888P"   "Y88888P" d88P     888 888   T88b       |'
   write (*,'(a)') '!                                                                      |'
-  write(*,'(a,i1,a,i1,a,i1,a,i1,a,i3,a)') '!     DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',params%verrev,', using ', nproc, ' processors                 |'
+  write(*,'(a,i1,a,i1,a,i1,a,i1,a,a8,a)') '!     DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',params%verrev,' - r', svnrev,'                           |'
+  write(*,'(a,i3,a)') '!     Running on ', nproc, ' processor cores                                   |'
   write (*,'(a)') '!----------------------------------------------------------------------|'
   write (*,'(a)') '!----------------------------------------------------------------------|'
 endif

src/Makefile

@@ -10,6 +10,7 @@ module_gauss.o \
 module_definitions.o \
 module_random.o \
 module_colormap.o \
+module_version.o \
 DoRuRe.o \
 build_surface_octree.o \
 build_system_wsmp.o \
@@ -80,7 +81,7 @@ write_global_output.o vrm.o
 
 
 all: $(BIN)
-$(BIN): subdirs $(OBJECTS)
+$(BIN): version subdirs $(OBJECTS)
 	@echo "$(F90) $(FFLAGS) $(OPTIONS) $(OBJECTS) $(LIBS) -o $(BIN)" \
 >$(BIN).link.stdout
 	$(F90) $(FFLAGS) $(OPTIONS) $(OBJECTS) $(LIBS) -o $(BIN) \
@@ -92,6 +93,11 @@ $(BIN): subdirs $(OBJECTS)
 install:
 	mv -f $(BIN) ../bin
 
+.PHONY: version
+version:
+	@echo "Updating version number in source"
+	bash update_svn_version.sh
+
 subdirs:
 	cd CASCADE;   make all
 	cd NN;        make all

src/module_version.f90

+module version
+
+character*8, parameter :: svnrev = '728'
+
+end module version

src/update_svn_version.sh

+#!/bin/bash
+#
+# update_svn_version.sh - A script to update the current repository revision
+# number in the module file module_version.f90
+#
+# dwhipp - 08/12
+
+# Revert module_version.f90 to original
+revert module_version.f90
+
+# Store current revision
+svnrev=`svnversion -n`
+
+# Generate new module_version.f90
+echo "module version" > module_version.f90
+echo "" >> module_version.f90
+echo "character*8, parameter :: svnrev = '$svnrev'" >> module_version.f90
+echo "" >> module_version.f90
+echo "end module version" >> module_version.f90