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

need more tuning ?

Browse Source
This commit is contained in:
tth
2022-04-17 12:44:43 +02:00
parent 285257cfac
commit cd486c5090
3 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Fraktalism/voxelize.f90
View File

@@ -9,7 +9,7 @@ program voxelize
implicit none
integer, parameter :: DIMC = 200
integer, parameter :: DIMC = 180
integer, dimension(:,:,:), allocatable :: cube
type(t_point3d), dimension(:), allocatable :: points
integer :: errcode, foo, argc
@@ -44,7 +44,7 @@ program voxelize
KA(1) = -1.3402 ; KA(2) = 1.5245
KA(3) = 1.0966 ; KA(4) = -2.3423
KB(1) = -1.2100 ; KB(2) = 1.3685
KB(3) = 1.1237 ; KB(4) = -2.1992
KB(3) = 1.3237 ; KB(4) = -2.3992
call interp4dp(KA, KB, KM, delta)
write(0, "(' --- coefs = ', 4F11.6)") KM
call compute_pickover(points, KM)
@@ -65,7 +65,7 @@ program voxelize
write(0, *) "--- maxval(cube) = ", maxcube
call spit_cube_as_union(filename, cube, &
maxcube/1000, dble(9000.00))
maxcube/2000, dble(9000.00))
write(0, *) "--- end of voxelize"
@@ -173,8 +173,8 @@ subroutine spit_cube_as_union(fname, voxels, limit, scaling)
bz = bz + dble(iz)
valeur = DBLE(cube(ix,iy,iz)) / scaling
! XXX
if (valeur .GT. 1.0) then
valeur = 1.0
if (valeur .GT. 1.5) then
valeur = 1.5
endif
write(chaine, "( 'translate <', I4, ',', I4, ',', I4, '> ' )") &