! Description: Creates and exports a 60x60 PGM image in ascii format. program test2 use forimage, only: format_pnm, ik implicit none ! Declare an object of type format_pnm type(format_pnm) :: image ! Define a 2D array representing pixel values for the image integer(ik), dimension(60,60) :: px print*,' ' print'(a)', 'Test 2' px = transpose(reshape(& [255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 251,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 251,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 251,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 251,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 251,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 237,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 237,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 237,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 237,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 0,& 237,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 242,& 0,& 0,& 0,& 0,& 0,& 119,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255,& 255]& ,shape=shape(px))) ! Set the properties of the format_pnm object (encoding, file format, width, height, comment and pixels) call image%set_pnm(encoding='ascii', file_format='pgm', width=60, height=60, max_color=255, comment='test 2', pixels=px) ! Export the PNM image to a file named 'img2_ascii' in the specified format call image%export_pnm('pnm_files/img2_ascii') ! Print the image information to the screen call image%print_info() ! Finalize the format_pnm object to release resources call image%finalize() end program test2