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

+ essai

Browse Source
This commit is contained in:
tth 2022-02-17 10:51:56 +01:00
parent c07b5f163f
commit aa73934c72
3 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
BloubWorld/.gitignore vendored
View File

@ -5,6 +5,7 @@ nbimg.inc
*.gif *.gif
*.blbs *.blbs
*.mp4 *.mp4
*.lst
frames/* frames/*
log.* log.*
@ -12,4 +13,6 @@ exportbloubs
genbloubs genbloubs
movebloubs movebloubs
mergebloubs mergebloubs
essai
core

13
BloubWorld/Makefile
View File

@ -2,25 +2,34 @@
all: genbloubs movebloubs exportbloubs mergebloubs all: genbloubs movebloubs exportbloubs mergebloubs
# ------------------------------------------------------------
GFOPT = -Wall -Wextra -g -time GFOPT = -Wall -Wextra -g -time
OBJS = bloubspace.o povstuff.o mathstuff.o OBJS = bloubspace.o povstuff.o mathstuff.o
# ------------------------------------------------------------ # ------------------------------------------------------------
essai: essai.f90 Makefile mathstuff.o
gfortran $(GFOPT) $< mathstuff.o -o $@
# ------------------------------------------------------------
initial.blbs: genbloubs Makefile initial.blbs: genbloubs Makefile
./genbloubs $@ 1000 ./genbloubs $@ 1000
in.blbs: genbloubs Makefile in.blbs: genbloubs Makefile
./genbloubs $@ 300 ./genbloubs $@ 30000
out.blbs: in.blbs mergebloubs Makefile out.blbs: in.blbs mergebloubs Makefile
./mergebloubs $< $@ ./mergebloubs $< $@
out.lst: out.blbs exportbloubs Makefile
./exportbloubs $< > $@
# ------------------------------------------------------------ # ------------------------------------------------------------
bloubspace.o: bloubspace.f90 Makefile bloubspace.o: bloubspace.f90 Makefile
gfortran $(GFOPT) -c $< gfortran $(GFOPT) -pg -c $<
povstuff.o: povstuff.f90 Makefile povstuff.o: povstuff.f90 Makefile
gfortran $(GFOPT) -c $< gfortran $(GFOPT) -c $<

16
BloubWorld/essai.f90 Normal file
View File

@ -0,0 +1,16 @@
program essai
use mathstuff
implicit none
integer :: foo
real :: quux
call init_random_seed()
do foo=1, 200000
quux = rand()
print *, foo, quux
enddo
end program