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

pickover evolutif

Browse Source
This commit is contained in:
tth
2022-03-30 08:42:39 +02:00
parent f89860afe0
commit 756ef965fd
7 changed files with 79 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Fraktalism/mods/points3d.f90
View File

@@ -10,6 +10,8 @@ module points3d
!-----------------------------------------------------
contains
!-----------------------------------------------------
subroutine list_points3d(array, start, length)
type(t_point3d), dimension(:), intent(in) :: array
integer, intent(in) :: start, length
@@ -38,7 +40,7 @@ subroutine write_points3d(array, start, length, fname)
integer :: sz, i, j, io
write(0, '(1X, A15, 2I9)') "write pt3d ", start, length
! write(0, '(1X, A15, 2I9)') "write pt3d ", start, length
sz = ubound(array, 1)
if ((start+length) .GT. sz) then
STOP ' : WRITE P3D, OUT OF BOUND'