save_pixels Subroutine

private impure subroutine save_pixels(this, file_name)

Type Bound

pixel

Arguments

Type IntentOptional Attributes Name
class(pixel), intent(inout) :: this
character(len=*), intent(in) :: file_name

Called by

proc~~save_pixels~~CalledByGraph proc~save_pixels forsvd::pixel%save_pixels program~test5 test5 program~test5->proc~save_pixels

Source Code

   impure subroutine save_pixels(this, file_name)
      class(pixel), intent(inout) :: this
      character(*), intent(in) :: file_name
      integer :: i, nunit

      open(newunit=nunit, file=trim(file_name))
      do i = 1, this%nrow
         write(nunit, *) this%pixels_app(i, :)
      end do
      close(nunit)

   end subroutine save_pixels