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
Download Patch File Download Diff File Expand all files Collapse all files

10
BloubWorld/bloubspace.f90
View File

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