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