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

some clean after erratic modifications

Browse Source
This commit is contained in:
tTh
2022-12-17 10:35:44 +01:00
parent a1f5030300
commit 6d935e5fd0
6 changed files with 26 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Fraktalism/mods/Makefile
View File

@@ -4,6 +4,10 @@
GFOPT = -Wall -Wextra -time -g
all: xperiment.o points3d.o
points3d.o: points3d.f90 Makefile
gfortran $(GFOPT) -c $<
xperiment.o: xperiment.f90 Makefile
gfortran $(GFOPT) -c $<

8
Fraktalism/mods/xperiment.f90
View File

@@ -6,7 +6,7 @@ module xperiment
!===============================================================
! nouveau 24 mai 2022
subroutine parasites_0(pic, cx, cy, maxiter)
subroutine parasites_1(pic, cx, cy, maxiter)
implicit none
! here is the wtf
@@ -39,13 +39,13 @@ subroutine parasites_0(pic, cx, cy, maxiter)
enddo
enddo
end subroutine parasites_0
end subroutine parasites_1
!---------------------------------------------------------------
!
! aucune idee de l'utilisation de ce truc !
!
subroutine loop_of_parasites_0(nbre, mode)
subroutine loop_of_parasites_1(nbre, mode)
implicit none
integer, intent(in) :: nbre, mode
@@ -59,7 +59,7 @@ subroutine loop_of_parasites_0(nbre, mode)
enddo
end subroutine loop_of_parasites_0
end subroutine loop_of_parasites_1
!===============================================================
end module xperiment