From f84ac44f9a1399a3e1a61c74a07e15127dfde884 Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Wed, 26 Jan 2011 15:17:03 +0000
Subject: [PATCH] now compiles Fortran sources on the fly

---
 processing/make_public | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/processing/make_public b/processing/make_public
index 9fd2a4fd8..cd1d57def 100755
--- a/processing/make_public
+++ b/processing/make_public
@@ -7,9 +7,9 @@
 #  PATH="$PATH:~/bin"
 #  export PATH 
 
-import os,sys
+import os,sys,glob
 
-public_bin = { \
+bin_link = { \
 				'pre' : [
 							'marc_addUserOutput',
 							'mentat_pbcOnBoxMesh',
@@ -24,10 +24,19 @@ public_bin = { \
 							],
 						}
 
+compile = { \
+				'pre' : [
+							'voronoi_randomSeeding.f90',
+							'voronoi_tessellation.f90',
+							],
+				'post' : [
+							],
+						}
+
 homedir = os.getenv('HOME')
 basedir = os.path.dirname(sys.argv[0])
-for dir in public_bin:
-  for file in public_bin[dir]:
+for dir in bin_link:
+  for file in bin_link[dir]:
     src = os.path.abspath(os.path.join(basedir,dir,file))
     if (file == ''):
       dst = os.path.abspath(os.path.join(homedir,'bin',dir))
@@ -37,3 +46,15 @@ for dir in public_bin:
     if os.path.lexists(dst):
       os.remove(dst)
     os.symlink(src,dst)
+
+for dir in compile:
+  for file in compile[dir]:
+    src = os.path.abspath(os.path.join(basedir,dir,file))
+    if os.path.isfile(src):
+      print file
+      os.system('ifort -O3 -parallel -o%s %s'%(os.path.splitext(src)[0],src))
+
+modules = glob.glob(os.path.abspath(os.path.join(basedir,'*.mod')))
+for module in modules:
+  print module
+  os.remove(module)