From 101ae7c1e806af289dbc63db18f6d159df285af8 Mon Sep 17 00:00:00 2001 From: tth Date: Sun, 20 Mar 2022 14:25:05 +0100 Subject: [PATCH] minor tewaeks --- BloubWorld/listbloubs.f90 | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/BloubWorld/listbloubs.f90 b/BloubWorld/listbloubs.f90 index ac6bf87..0f459e5 100644 --- a/BloubWorld/listbloubs.f90 +++ b/BloubWorld/listbloubs.f90 @@ -3,10 +3,10 @@ program movebloubs use bloubspace implicit none - integer, parameter :: NB_MAX_BLOUBS = 200000 + integer, parameter :: NB_MAX_BLOUBS = 2000000 ! -------------------------------------------------------------- - character(200) :: infile + character(300) :: infile integer :: errcode, i integer :: nbgot type(t_bloubs), dimension(:), allocatable :: bloubs @@ -18,7 +18,7 @@ program movebloubs call getarg(1, infile) write (0, '(A)') & - "*** listing bloubs from "//trim(infile) + "*** listing bloubs from "//trim(infile) allocate (bloubs(NB_MAX_BLOUBS), stat=errcode) if (0 .NE. errcode) then @@ -32,12 +32,13 @@ program movebloubs write(0, '(A,I6,1X,A)') "slurped ", nbgot, "bloubs" do i=1,nbgot - write(6, '(A8, 1X, 1L, 1X, I2, 3X, F8.3, 3X, 3F8.3, 3X, 3F8.3)') & + write(6, '(A8, 1X, 1L, 1X, I2, 3X, F8.3, 3X, 3F8.3, 3X, 3F8.3, 1X, I4)') & bloubs(i)%nick, bloubs(i)%alive, & bloubs(i)%state, & bloubs(i)%radius, & bloubs(i)%px, bloubs(i)%py, bloubs(i)%pz, & - bloubs(i)%vx, bloubs(i)%vy, bloubs(i)%vz + bloubs(i)%vx, bloubs(i)%vy, bloubs(i)%vz, & + bloubs(i)%age enddo end program