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

modules: rename a function

Browse Source
This commit is contained in:
tTh 2024-01-10 11:11:34 +01:00
parent d040b305f8
commit 3b4726fb2a
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Modules/trials.f90
View File

@ -5,15 +5,11 @@ module trials
implicit none implicit none
!-----------------------------------------------------------------------
!-------------------------------------------------------------------
contains contains
!-----------------------------------------------------------------------
!-
!------------------------------------------------------------------- !-------------------------------------------------------------------
subroutine new_spit_a(pic, fname) ! please write the same thing for RGB 16bits pictures !
subroutine new_spit_gray(pic, fname)
integer, intent(in), dimension (:,:) :: pic integer, intent(in), dimension (:,:) :: pic
character (len=*), intent(in) :: fname character (len=*), intent(in) :: fname
@ -27,7 +23,7 @@ subroutine new_spit_a(pic, fname)
open(newunit=io, file=fname) open(newunit=io, file=fname)
write (io, '(a2)') "P2" write (io, '(a2)') "P2"
write (io, '("# new_spit_a")') write (io, '("# new_spit_gray")')
write (io, '(i0," ",i0)') size(pic, 1), size(pic, 2) write (io, '(i0," ",i0)') size(pic, 1), size(pic, 2)
write (io, '(i0)') 65535 write (io, '(i0)') 65535
@ -52,4 +48,4 @@ subroutine new_spit_a(pic, fname)
end subroutine end subroutine
!------------------------------------------------------------------- !-------------------------------------------------------------------
end module end module