diff --git a/starfield.f90 b/starfield.f90 index 7cd7f3a..eae5378 100644 --- a/starfield.f90 +++ b/starfield.f90 @@ -25,7 +25,7 @@ subroutine plot_a_star(at_x, at_y, sz, color) integer :: idx 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) do idx=0, 360, 36 ! convert index to radians