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

brotching the code

Browse Source
This commit is contained in:
tth 2022-02-07 02:08:17 +01:00
parent 23616f9119
commit dac287beb2
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
BloubWorld/bloubspace.f90
View File

@ -28,9 +28,9 @@ module bloubspace
blb%py = rand() * 0.25 blb%py = rand() * 0.25
blb%pz = rand() - 0.50 blb%pz = rand() - 0.50
blb%vx = (rand() - 0.5) / 5.000 blb%vx = (rand() - 0.5) / 4.000
blb%vy = (rand() - 0.5) / 5.000 blb%vy = (rand() - 0.5) / 4.000
blb%vz = (rand() - 0.5) / 5.000 blb%vz = (rand() - 0.5) / 4.000
end subroutine end subroutine
@ -40,6 +40,8 @@ module bloubspace
type(t_bloubs), intent (inout) :: blb type(t_bloubs), intent (inout) :: blb
real, intent (in) :: coef real, intent (in) :: coef
! we must check that this bloub is alive ?
blb%px = blb%px + (blb%vx * coef) blb%px = blb%px + (blb%vx * coef)
blb%py = blb%py + (blb%vy * coef) blb%py = blb%py + (blb%vy * coef)
blb%pz = blb%pz + (blb%vz * coef) blb%pz = blb%pz + (blb%vz * coef)

2
BloubWorld/genbloubs.f90
View File

@ -31,7 +31,7 @@ program genbloubs
bloub%nick = 'noname ' bloub%nick = 'noname '
bloub%alive = .TRUE. bloub%alive = .TRUE.
call random_pv(bloub) call random_pv(bloub)
bloub%radius = 0.009999 bloub%radius = 0.025
bloub%seq = 0 bloub%seq = 0
write(idu) bloub ! no error control ? write(idu) bloub ! no error control ?

6
BloubWorld/movebloubs.f90
View File

@ -44,7 +44,7 @@ program movebloubs
exit exit
endif endif
call move_bloub (bloub, 0.333) call move_bloub (bloub, 1.10)
bx = bx + bloub%px bx = bx + bloub%px
by = by + bloub%py by = by + bloub%py
@ -55,6 +55,10 @@ program movebloubs
bloub%vy = -1.0 * bloub%vy bloub%vy = -1.0 * bloub%vy
bloub%py = 0.0 bloub%py = 0.0
endif endif
if (3.0 .lt. bloub%py) then
bloub%vy = -1.0 * bloub%vy
bloub%py = 3.0
endif
write(outu) bloub ! no error control ? write(outu) bloub ! no error control ?