test5 Program

Uses

  • program~~test5~~UsesGraph program~test5 test5 module~forsvd forsvd program~test5->module~forsvd kinds kinds module~forsvd->kinds

Calls

program~~test5~~CallsGraph program~test5 test5 proc~compress_pixels forsvd::pixel%compress_pixels program~test5->proc~compress_pixels proc~deallocate_pixel forsvd::pixel%deallocate_pixel program~test5->proc~deallocate_pixel proc~image_to_pixels forsvd::pixel%image_to_pixels program~test5->proc~image_to_pixels proc~load_pixels forsvd::pixel%load_pixels program~test5->proc~load_pixels proc~pixels_to_image forsvd::pixel%pixels_to_image program~test5->proc~pixels_to_image proc~save_pixels forsvd::pixel%save_pixels program~test5->proc~save_pixels proc~lowrank forsvd::tsvd%lowrank proc~compress_pixels->proc~lowrank interface~svd forsvd::svd proc~lowrank->interface~svd proc~svd_rel forsvd::svd_rel interface~svd->proc~svd_rel proc~gesdd_rel forsvd::gesdd_rel proc~svd_rel->proc~gesdd_rel proc~gesvd_rel forsvd::gesvd_rel proc~svd_rel->proc~gesvd_rel

Variables

Type Attributes Name Initial
type(pixel) :: px

Source Code

program test5

   use forsvd, only: pixel

   implicit none

   type(pixel) :: px

   px%nrow = 356
   px%ncol = 238

   call px%image_to_pixels(image_name='pixel/John_W_Backus.jpg', file_name='pixel/John_W_Backus.txt')
   call px%load_pixels(file_name='pixel/John_W_Backus.txt')
   call px%compress_pixels(rank=10)
   call px%save_pixels(file_name='pixel/John_W_Backus_com.txt')
   call px%pixels_to_image(image_name='pixel/John_W_Backus.jpg', file_name='pixel/John_W_Backus.txt')
   call px%dlloc()

end program test5