From 7a534be47646c7b75757809304c02e7f142f36a6 Mon Sep 17 00:00:00 2001 From: tth Date: Sat, 19 Mar 2022 02:45:54 +0100 Subject: [PATCH] oups... --- Fraktalism/mods/points3d.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Fraktalism/mods/points3d.f90 b/Fraktalism/mods/points3d.f90 index 863fff5..0c6d301 100644 --- a/Fraktalism/mods/points3d.f90 +++ b/Fraktalism/mods/points3d.f90 @@ -22,7 +22,7 @@ subroutine list_points3d(array, start, length) endif ! send oi to stdout. - do i = start, start+length + do i = start, start+length-1 print *, array(i)%x, array(i)%y, array(i)%z, array(i)%seq enddo