From 86553a65b5da42a25850e5ad120ddfe0cab02da7 Mon Sep 17 00:00:00 2001 From: tTh Date: Sat, 3 Jun 2023 11:50:48 +0200 Subject: [PATCH] boilerplate --- Modules/centermag.f90 | 48 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 Modules/centermag.f90 diff --git a/Modules/centermag.f90 b/Modules/centermag.f90 new file mode 100644 index 0000000..bbbf989 --- /dev/null +++ b/Modules/centermag.f90 @@ -0,0 +1,48 @@ + +module centermag + implicit none +!----------------------------------------------------------------------- +! definition of structures +!- +type t_centermag + integer :: wscr, hscr ! "physycal" screen size + real :: mag = 1.0 ! magnitude factor + real :: cx, cy ! the center + + integer :: flag = 0 +end type +!------------------------------------------------------------------- +contains +!------------------------------------------------------------------- +subroutine print_centermag (cm) + type(t_centermag), intent(in) :: cm + + print *, "Screen ", cm%wscr, cm%hscr + print *, "MagFactor ", cm%mag + print *, "Center ", cm%cx, cm%cy + +end subroutine +!------------------------------------------------------------------- +subroutine centermag_scr2real (sx, sy, rx, ry) + integer, intent(in) :: sx, sy + real, intent(out) :: rx, ry + + print *, 'from scr :', sx, sy + + rx = 999.999 + ry = 666.666 + +end subroutine +!------------------------------------------------------------------- +subroutine centermag_real2scr (rx, ry, sx, sy) + real, intent(in) :: rx, ry + integer, intent(out) :: sx, sy + + print *, 'from real :', rx, ry + + sx = -1 + sy = -1 + +end subroutine +!------------------------------------------------------------------- +end module