From 72f59b96e5439ef0f0edf33dc3ed3507712f8107 Mon Sep 17 00:00:00 2001
From: tTh <tth@konrad.lan>
Date: Tue, 6 Feb 2024 17:01:03 +0100
Subject: [PATCH] rename a file

---
 Modules/Makefile        |  4 ++--
 Modules/t_centermag.f90 | 35 +++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 2 deletions(-)
 create mode 100644 Modules/t_centermag.f90

diff --git a/Modules/Makefile b/Modules/Makefile
index 77ccaa2..ea6bb7e 100644
--- a/Modules/Makefile
+++ b/Modules/Makefile
@@ -47,9 +47,9 @@ libtth90modules.a:	$(OBJECTS) Makefile
 #
 
 chkpixels:	chkpixels.f90 Makefile libtth90modules.a
-	gfortran $(GFOPT) $<  libtth90modules.a -o $@
+	gfortran $(GFOPT) -pg $<  libtth90modules.a -o $@
 
-t:		t.f90 Makefile libtth90modules.a
+t_centermag:	t_centermag.f90 Makefile libtth90modules.a
 	gfortran $(GFOPT) $<  libtth90modules.a -o $@
 
 trnd:		trnd.f90 Makefile libtth90modules.a
diff --git a/Modules/t_centermag.f90 b/Modules/t_centermag.f90
new file mode 100644
index 0000000..e2d520d
--- /dev/null
+++ b/Modules/t_centermag.f90
@@ -0,0 +1,35 @@
+program t
+
+  use      centermag
+  implicit none
+
+  type(t_centermag)      :: cmag
+
+  print *, '====== programme de test ======'
+
+  cmag%wscr = 800
+  cmag%hscr = 600
+
+  call essai_centermag(cmag)
+  print *
+
+  STOP ': PAF LE CHIEN ?'
+
+!       --------------
+contains
+!       --------------
+subroutine essai_centermag(cm)
+    type(t_centermag), intent(in)   :: cm
+
+    real                            :: rx, ry
+
+    call  print_centermag (cm)
+    print *
+
+    call  centermag_scr2real(1, 1, rx, ry)
+    print *, 'to real  :', rx, ry
+
+end subroutine
+!       --------------
+
+end program