tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mute a debug message

Browse Source
This commit is contained in:
Tonton Th
2026-05-22 04:30:46 +02:00
parent 0bc55225fc
commit fa334cd7de
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
starfield.f90
View File

@@ -25,7 +25,7 @@ subroutine plot_a_star(at_x, at_y, sz, color)
integer :: idx integer :: idx
real :: rad, xv, yv real :: rad, xv, yv
write(0, '("plot a star at ", 2F8.3)') at_x, at_y ! write(0, '("plot a star at ", 2F8.3)') at_x, at_y
call genp_set_offset(at_x, at_y) call genp_set_offset(at_x, at_y)
do idx=0, 360, 36 do idx=0, 360, 36
! convert index to radians ! convert index to radians