naptime reached

2026-09-20 10:47:43 +02:00
parent d7da858380
commit d8e3d1c01b
12 changed files with 35 additions and 39 deletions
@@ -2,7 +2,7 @@
 # Fortraneries by tTh - Graf Anim
 #

-GFOPT = -Wall -Wextra -g -time  -I../Modules
+GFOPT = -Wall -Wextra -g -pg  -I../Modules
 MYLIB = '../Modules/libtth90modules.a'

 # ---- programmes
@@ -94,6 +94,6 @@ subroutine iterator(img, x0, y0, nbi)
  enddo

 end subroutine
-
+! ----------------------------------------------------------
 end program

@@ -42,8 +42,6 @@ program noisepic

 contains
 !-- ------------------------------------------------------------------
-!--
-!-- ------------------------------------------------------------------
 subroutine make_noise_color_range_pic (seqv, rngs, nbre)
  implicit none
  integer, intent(in)        :: seqv, nbre
@@ -32,7 +32,7 @@ program trigofest

  STOP ': WORLD FINISHED'

-contains        !------------------------------------------
+contains
 !-------------------------------------------------------------
 !       Lowlevel functions
 !       ------------------
@@ -121,7 +121,6 @@ subroutine spirale(pic, inirad, param)

 end subroutine

-!-------------------------------------------------------------
 !-------------------------------------------------------------

 end program