modules: rename a function
This commit is contained in:
parent
d040b305f8
commit
3b4726fb2a
|
@ -5,15 +5,11 @@ module trials
|
|||
|
||||
implicit none
|
||||
|
||||
!-----------------------------------------------------------------------
|
||||
!-------------------------------------------------------------------
|
||||
|
||||
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
|
||||
character (len=*), intent(in) :: fname
|
||||
|
@ -27,7 +23,7 @@ subroutine new_spit_a(pic, fname)
|
|||
|
||||
open(newunit=io, file=fname)
|
||||
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)') 65535
|
||||
|
||||
|
@ -52,4 +48,4 @@ subroutine new_spit_a(pic, fname)
|
|||
end subroutine
|
||||
!-------------------------------------------------------------------
|
||||
|
||||
end module
|
||||
end module
|
||||
|
|
Loading…
Reference in New Issue