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

enlarge your export

Browse Source
This commit is contained in:
tth 2022-03-25 07:53:14 +01:00
parent 414572133d
commit 8ed64ac8ff
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
BloubWorld/exportbloubs.f90
View File

@ -15,7 +15,7 @@ program genbloubs
endif endif
call getarg(1, filename) call getarg(1, filename)
write (0, '(A, A)') "*** exporting from ", trim(filename) write (0, '(A, A)') "### exporting from ", trim(filename)
open(unit=idu, file=trim(filename), form='unformatted', & open(unit=idu, file=trim(filename), form='unformatted', &
iostat=errcode, & iostat=errcode, &
@ -32,8 +32,11 @@ program genbloubs
if (0 .ne. errcode) then if (0 .ne. errcode) then
exit exit
endif endif
print *, bloub%px, bloub%py, bloub%pz, bloub%radius, bloub%age if (bloub%alive) then
print *, bloub%px, bloub%py, bloub%pz, bloub%radius, &
bloub%age, bloub%state
compte = compte + 1 compte = compte + 1
endif
enddo enddo
write(0, '(1X, I8, A)') compte, " bloubs exported" write(0, '(1X, I8, A)') compte, " bloubs exported"