From c8d490b8be6dc12363905be102bf7e2a68ce3a19 Mon Sep 17 00:00:00 2001 From: tth Date: Tue, 8 Feb 2022 13:25:04 +0100 Subject: [PATCH] adding mathstuff --- BloubWorld/Makefile | 11 +++++++---- BloubWorld/mathstuff.f90 | 23 +++++++++++++++++++++++ 2 files changed, 30 insertions(+), 4 deletions(-) create mode 100644 BloubWorld/mathstuff.f90 diff --git a/BloubWorld/Makefile b/BloubWorld/Makefile index 748baf5..e150034 100644 --- a/BloubWorld/Makefile +++ b/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 $@ # ------------------------------------------------------------ diff --git a/BloubWorld/mathstuff.f90 b/BloubWorld/mathstuff.f90 new file mode 100644 index 0000000..e45e9b3 --- /dev/null +++ b/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 +