test13.f90 Source File

program test13
    use forimage, only: format_pnm
    implicit none
    
    type(format_pnm) :: image

    print*,' '
    print'(a)', 'Test 13'

    call image%import_pnm('pnm_files/img3_binary','ppm','binary')

    ! Print the image information to the screen
    call image%print_info()

    call image%export_pnm('pnm_files/img3_binary_to_ascii_ex','ascii')

    call image%finalize()

end program test13