big commit before big mess

2022-10-28 21:53:57 +02:00
parent 7cde5e3b6b
commit 23f3eeb032
17 changed files with 225 additions and 28 deletions
--- a/Fraktalism/mods/points3d.f90
+++ b/Fraktalism/mods/points3d.f90
@@ -49,7 +49,8 @@ subroutine write_points3d(array, start, length, fname)
    open(newunit=io, file=fname)
    do i = 1, length
       j = i + start
-       write(io, '(3F12.6)') array(j)%x, array(j)%y, array(j)%z
+       write(io, '(3F12.6, I8)')           &
+             array(j)%x, array(j)%y, array(j)%z, array(j)%seq
    enddo
    close(io)