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

added some new bugs

Browse Source
This commit is contained in:
tTh 2022-11-30 02:53:05 +01:00
parent b68207631c
commit 134f37bdaf
3 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Fraktalism/Makefile
View File

@ -1,12 +1,11 @@
all: voxelize evolvopick pickover julia lorentz essai all: voxelize evolvopick pickover julia lorentz essai
GFOPT = -Wall -Wextra -time -g -O -Imods/ GFOPT = -Wall -Wextra -time -g -O -Imods/ -I../Modules
# --------------------------------------------- # ---------------------------------------------
# the module 'spitpgm' is now in $PROJECT/Modules
mods/spitpgm.o: mods/spitpgm.f90 Makefile #
gfortran $(GFOPT) -c $< -o $@
mods/points3d.o: mods/points3d.f90 Makefile mods/points3d.o: mods/points3d.f90 Makefile
gfortran $(GFOPT) -c $< -o $@ gfortran $(GFOPT) -c $< -o $@
@ -17,8 +16,7 @@ mods/xperiment.o: mods/xperiment.f90 Makefile
fraktals.o: fraktals.f90 Makefile fraktals.o: fraktals.f90 Makefile
gfortran $(GFOPT) -c $< gfortran $(GFOPT) -c $<
OBJS = mods/spitpgm.o mods/points3d.o mods/xperiment.o \ OBJS = mods/points3d.o mods/xperiment.o fraktals.o
fraktals.o
# --------------------------------------------- # ---------------------------------------------

2
Fraktalism/essai.f90
View File

@ -1,7 +1,7 @@
!----------------------------------------------------- !-----------------------------------------------------
program essai program essai
use spitpgm use spitpgm ! XXX moved in ../Modules
use fraktals use fraktals
use points3d use points3d
use xperiment use xperiment

3
Fraktalism/fraktals.f90
View File

@ -183,7 +183,8 @@ subroutine lorentz_0(pic, count)
! XXX double precision :: ka, kb, kc, kd ! XXX double precision :: ka, kb, kc, kd
! XXX integer :: i, w, h, px, py ! XXX integer :: i, w, h, px, py
write(0, *) "proc lorentz_0, count is ", count write(0, *) "lorentz_0, picz is ", ubound(pic)
write(0, *) "lorentz_0, count is ", count
end subroutine lorentz_0 end subroutine lorentz_0