boilerplate

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