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

2
GrafAnim/noisepic.f90
View File

@@ -35,7 +35,7 @@ program noisepic
r5 = 29000 + 23000 * cos(fclock*32)
ranges(5) = nint(r5) ; ranges(6) = ranges(5)+300
print *, 'r123', numframe, fclock, r1, r3, r5
print *, numframe, fclock, r1, r3, r5
call make_noise_color_range_pic (numframe, ranges, 29000)
enddo