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

saturday night fever is now commited

Browse Source
This commit is contained in:
tTh
2022-12-03 20:42:29 +01:00
parent 3c3d1c8906
commit 4853779493
11 changed files with 134 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
GravityField/essai.f90
View File

@@ -22,7 +22,7 @@ program essai
call create_some_planets(planets, 45e5, S_WIDTH, S_HEIGHT)
do foo=0, 1999
write (filename, "(a, i5.5, a)") 'WS/', foo, '.pgm'
write (filename, "(a, i5.5, a)") 'WS/field/', foo, '.pgm'
call build_and_write_a_field(S_WIDTH, S_HEIGHT, planets, filename)
! print *, trim(filename)
! OMG! two magic numbers, wtf?