tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

adding mathstuff

Browse Source
This commit is contained in:
tth 2022-02-08 13:25:04 +01:00
parent 5c6ceb9a81
commit c8d490b8be
2 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
BloubWorld/Makefile
View File

@ -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 $@
# ------------------------------------------------------------

23
BloubWorld/mathstuff.f90 Normal file
View File

@ -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