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

mergebloubs boilerplate done

Browse Source
This commit is contained in:
tth
2022-02-16 15:59:42 +01:00
parent d9491cc5f9
commit b26618a841
7 changed files with 58 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
BloubWorld/movebloubs.f90
View File

@@ -11,7 +11,7 @@ program movebloubs
integer :: compteur, killed
type(t_bloubs) :: bloub
double precision :: bx, by, bz
logical :: add_new_bloub = .TRUE.
! logical :: add_new_bloub = .TRUE.
! real :: rnd
call init_random_seed()
@@ -78,9 +78,9 @@ program movebloubs
! ok, we have read all the bloubs in the input file
! insert some fancy conditional here
if (add_new_bloub) then
if (compteur .LT. 1500) then
call add_more_bloubs(outu, 8, 0.095)
call add_more_bloubs(outu, 8, 0.075)
endif
@@ -111,7 +111,7 @@ contains
call random_pv(bloub)
bloub%radius = wtf
bloub%seq = foo
call display_bloub (bloub, "new bloub")
! call display_bloub (bloub, "new bloub")
write(un) bloub ! no error control ?
enddo