tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

rename a file

Browse Source
This commit is contained in:
tTh 2024-02-06 17:01:03 +01:00
parent 98350ed6c6
commit 72f59b96e5
2 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Modules/Makefile
View File

@ -47,9 +47,9 @@ libtth90modules.a: $(OBJECTS) Makefile
# #
chkpixels: chkpixels.f90 Makefile libtth90modules.a 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 $@ gfortran $(GFOPT) $< libtth90modules.a -o $@
trnd: trnd.f90 Makefile libtth90modules.a trnd: trnd.f90 Makefile libtth90modules.a

35
Modules/t_centermag.f90 Normal file
View File

@ -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