rename a file
This commit is contained in:
parent
98350ed6c6
commit
72f59b96e5
|
@ -47,9 +47,9 @@ libtth90modules.a: $(OBJECTS) Makefile
|
|||
#
|
||||
|
||||
chkpixels: chkpixels.f90 Makefile libtth90modules.a
|
||||
gfortran $(GFOPT) $< libtth90modules.a -o $@
|
||||
gfortran $(GFOPT) -pg $< libtth90modules.a -o $@
|
||||
|
||||
t: t.f90 Makefile libtth90modules.a
|
||||
t_centermag: t_centermag.f90 Makefile libtth90modules.a
|
||||
gfortran $(GFOPT) $< libtth90modules.a -o $@
|
||||
|
||||
trnd: trnd.f90 Makefile libtth90modules.a
|
||||
|
|
|
@ -0,0 +1,35 @@
|
|||
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
|
Loading…
Reference in New Issue