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

minor tewaeks

Browse Source
This commit is contained in:
tth 2022-03-20 14:25:05 +01:00
parent 7a534be476
commit 101ae7c1e8
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
BloubWorld/listbloubs.f90
View File

@ -3,10 +3,10 @@ program movebloubs
use bloubspace use bloubspace
implicit none implicit none
integer, parameter :: NB_MAX_BLOUBS = 200000 integer, parameter :: NB_MAX_BLOUBS = 2000000
! -------------------------------------------------------------- ! --------------------------------------------------------------
character(200) :: infile character(300) :: infile
integer :: errcode, i integer :: errcode, i
integer :: nbgot integer :: nbgot
type(t_bloubs), dimension(:), allocatable :: bloubs type(t_bloubs), dimension(:), allocatable :: bloubs
@ -18,7 +18,7 @@ program movebloubs
call getarg(1, infile) call getarg(1, infile)
write (0, '(A)') & write (0, '(A)') &
"*** listing bloubs from "//trim(infile) "*** listing bloubs from "//trim(infile)
allocate (bloubs(NB_MAX_BLOUBS), stat=errcode) allocate (bloubs(NB_MAX_BLOUBS), stat=errcode)
if (0 .NE. errcode) then if (0 .NE. errcode) then
@ -32,12 +32,13 @@ program movebloubs
write(0, '(A,I6,1X,A)') "slurped ", nbgot, "bloubs" write(0, '(A,I6,1X,A)') "slurped ", nbgot, "bloubs"
do i=1,nbgot 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)%nick, bloubs(i)%alive, &
bloubs(i)%state, & bloubs(i)%state, &
bloubs(i)%radius, & bloubs(i)%radius, &
bloubs(i)%px, bloubs(i)%py, bloubs(i)%pz, & 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 enddo
end program end program