36 lines
582 B
Fortran
36 lines
582 B
Fortran
|
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
|