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