adding mathstuff

BloubWorld/Makefile

@@ -4,7 +4,7 @@ all:	genbloubs movebloubs exportbloubs
 
 
 GFOPT = -Wall -Wextra -g -time
-OBJS  = bloubspace.o povstuff.o
+OBJS  = bloubspace.o povstuff.o mathstuff.o
 
 # ------------------------------------------------------------
 
@@ -19,16 +19,19 @@ bloubspace.o:	bloubspace.f90 Makefile
 povstuff.o:	povstuff.f90 Makefile
 	gfortran $(GFOPT) -c $<
 
+mathstuff.o:	mathstuff.f90 Makefile
+	gfortran $(GFOPT) -c $<
+
 # ------------------------------------------------------------
 
 genbloubs:	genbloubs.f90 Makefile $(OBJS)
-	gfortran $(GFOPT) $(OBJS)  $< -o $@
+	gfortran $(GFOPT) $< $(OBJS)  -o $@
 
 movebloubs:	movebloubs.f90 Makefile $(OBJS)
-	gfortran $(GFOPT) $(OBJS)  $< -o $@
+	gfortran $(GFOPT) $< $(OBJS)  -o $@
 
 exportbloubs:	exportbloubs.f90 Makefile $(OBJS)
-	gfortran $(GFOPT) $(OBJS)  $< -o $@
+	gfortran $(GFOPT) $< $(OBJS)  -o $@
 
 # ------------------------------------------------------------
 

BloubWorld/mathstuff.f90

@@ -0,0 +1,23 @@
+module mathstuff
+
+  implicit none
+
+  contains
+
+  ! ----------------------------------------------------------------
+
+  subroutine init_random_seed()
+
+    integer, dimension(3) :: tarray
+    integer t3
+
+    call itime(tarray)
+    t3 = 200*tarray(1) + 20*tarray(2) + tarray(3)
+    print *, tarray, ' --> ', t3
+    call srand(t3)
+
+  end subroutine 
+
+  ! ----------------------------------------------------------------
+end module mathstuff
+