test14 Program

Uses

  • program~~test14~~UsesGraph program~test14 test14 module~forimage forimage program~test14->module~forimage module~forcolor forcolor module~forimage->module~forcolor module~forimage_parameters forimage_parameters module~forimage->module~forimage_parameters module~lut lut module~forimage->module~lut module~pnm pnm module~forimage->module~pnm module~forcolor->module~forimage_parameters module~forcolor->module~pnm iso_fortran_env iso_fortran_env module~forimage_parameters->iso_fortran_env module~pnm->module~forimage_parameters

Calls

program~~test14~~CallsGraph program~test14 test14 proc~deallocate_pnm format_pnm%deallocate_pnm program~test14->proc~deallocate_pnm proc~export_pnm format_pnm%export_pnm program~test14->proc~export_pnm proc~import_pnm format_pnm%import_pnm program~test14->proc~import_pnm proc~print_info format_pnm%print_info program~test14->proc~print_info proc~set_format format_pnm%set_format proc~export_pnm->proc~set_format proc~write_header write_header proc~export_pnm->proc~write_header proc~allocate_pixels format_pnm%allocate_pixels proc~import_pnm->proc~allocate_pixels proc~check_pixel_range format_pnm%check_pixel_range proc~import_pnm->proc~check_pixel_range proc~read_header read_header proc~import_pnm->proc~read_header proc~set_file_format format_pnm%set_file_format proc~import_pnm->proc~set_file_format proc~import_pnm->proc~set_format proc~aspect_ratio aspect_ratio proc~print_info->proc~aspect_ratio proc~average_colors average_colors proc~print_info->proc~average_colors proc~pixel_size pixel_size proc~print_info->proc~pixel_size

Variables

Type Attributes Name Initial
type(format_pnm) :: image

Source Code

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

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

    call image%import_pnm('pnm_files/img3_ascii','ppm','ascii')

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

    call image%export_pnm('pnm_files/img3_ascii_to_binary_ex','binary')

    call image%finalize()

end program test14