cranicule is here

2026-06-25 06:43:33 +02:00
parent 31c9d1a802
commit de43a1810c
6 changed files with 46 additions and 2 deletions
--- a/Modules/demo_spitpgm.f90
+++ b/Modules/demo_spitpgm.f90
@@ -0,0 +1,18 @@
+program demo_spitpgm
+  use spitpgm
+
+  integer      :: fancydatas(128, 128)
+  integer      :: i, j
+
+  fancydatas = 0
+
+  do i=1, 128
+    do j=1, 128
+    fancydatas(i,j) = mod(i*j, 65000)
+    enddo
+  enddo
+
+  call spit_as_pgm_16(fancydatas, 'fancydatas.pgm')
+
+end program
+