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

cubic version in progress, again

Browse Source
This commit is contained in:
tth
2022-03-18 23:38:23 +01:00
parent 8b14eaca25
commit 96834f5f21
2 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Fraktalism/pickover.f90
View File

@@ -11,7 +11,7 @@ program pickover
implicit none
integer, dimension(800, 600) :: picz
integer, dimension(1024, 768) :: picz
integer :: argc
character(200) :: filename
double precision, dimension(4) :: coefs
@@ -36,9 +36,8 @@ program pickover
coefs(1) = 2.24 ; coefs(2) = 0.43
coefs(3) = -0.65 ; coefs(4) = -2.43
call compute_pickover(points, coefs)
call list_points3d(points, 2, 32000)
call list_points3d(points, 2, 42000)
end program