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

Bourtoulots laboratories in the place

Browse Source
This commit is contained in:
tTh
2026-05-31 23:44:58 +02:00
parent c3f27c9843
commit 8e14ec2c8d
6 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
GravityField/animation.f90
View File

@@ -15,7 +15,7 @@ program animation
! some configuration constants
integer, parameter :: S_WIDTH = 2048
integer, parameter :: S_HEIGHT = 2048
integer, parameter :: NB_BODY = 250
integer, parameter :: NB_BODY = 666
!!! WARNING : global variable !!!
type(massbody) :: planets(NB_BODY)
@@ -24,7 +24,7 @@ program animation
call create_some_planets(planets, 1664e3, S_WIDTH , S_HEIGHT)
call print_barycentre_bodies(planets, 'begin')
call la_grande_boucle(0, 2000, planets)
call la_grande_boucle(0, 4000, planets)
STOP ': YOLO TIME *NOW*'