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