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

bla

Browse Source
This commit is contained in:
tTh 2024-02-07 00:39:00 +01:00
parent 7d0e302e09
commit d1b7218b21
3 changed files with 10 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Modules/README.md
View File

@ -11,8 +11,7 @@ Write gray level 2d buffer (aka picture) to disk in the NetPNM format.
### pixrgb ### pixrgb
Write 8 bits or 16 bits RGB pictures to PNM format. Write 8 bits or 16 bits RGB pictures to PNM format.
The width of the picture MUST be a multiple of 4 !
**Warning!** The width of the picture MUST be a multiple of 4 !
### trials ### trials

18
Modules/mathstuff2.f90
View File

@ -6,15 +6,15 @@ module mathstuff2
implicit none implicit none
contains contains
! ---------------------------------------------------------------- ! ----------------------------------------------------------------
! really quick'n'dirty hack ! really quick'n'dirty hack
! not really tested yet... ! not really tested yet...
subroutine init_random_seed() subroutine init_random_seed()
integer, dimension(3) :: tarray integer, dimension(3) :: tarray
integer :: t3, foo integer :: t3, foo
real :: dummy real :: dummy
call itime(tarray) call itime(tarray)
t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3) t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3)
! write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3 ! write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3
@ -28,8 +28,10 @@ module mathstuff2
end subroutine end subroutine
! ---------------------------------------------------------------- ! ----------------------------------------------------------------
!-
!- May be I can make some generic procedures ?
!-
logical function diff_sign(a, b) logical function diff_sign(a, b)
integer, intent(in) :: a, b integer, intent(in) :: a, b
@ -45,8 +47,6 @@ logical function diff_sign(a, b)
diff_sign = .FALSE. diff_sign = .FALSE.
end function end function
! ----------------------------------------------------------------
! ----------------------------------------------------------------
end module mathstuff2 end module mathstuff2

35
Modules/t.f90
View File

@ -1,35 +0,0 @@
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