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

big commit before big mess

Browse Source
This commit is contained in:
tth
2022-10-28 21:53:57 +02:00
parent 7cde5e3b6b
commit 23f3eeb032
17 changed files with 225 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Fraktalism/voxelize.f90
View File

@@ -9,7 +9,7 @@ program voxelize
implicit none
integer, parameter :: DIMC = 180
integer, parameter :: DIMC = 320
integer, dimension(:,:,:), allocatable :: cube
type(t_point3d), dimension(:), allocatable :: points
integer :: errcode, foo, argc
@@ -35,7 +35,7 @@ program voxelize
STOP " : NO ENOUGH MEMORY FOR CUBE"
endif
nbr_points = 7000000
nbr_points = 9000000
allocate(points(nbr_points), stat=errcode)
if (0 .NE. errcode) then
STOP " : NO ENOUGH MEMORY FOR POINTS"