test15 Program

Uses

  • program~~test15~~UsesGraph program~test15 test15 module~forimage forimage program~test15->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~~test15~~CallsGraph program~test15 test15 proc~deallocate_lut format_lut%deallocate_lut program~test15->proc~deallocate_lut proc~export format_lut%export program~test15->proc~export proc~set~2 format_lut%set program~test15->proc~set~2 proc~get_num_colors format_lut%get_num_colors proc~export->proc~get_num_colors proc~allocate_colors format_lut%allocate_colors proc~set~2->proc~allocate_colors

Variables

Type Attributes Name Initial
integer, dimension(1:8, 3) :: colors = reshape([0, 0, 0, 255, 0, 0, 0, 255, 0, 0, 0, 255, 255, 255, 0, 0, 255, 255, 255, 0, 255, 255, 255, 255], shape(colors), order=[2, 1])
type(format_lut) :: image

Source Code

program test15
    use forimage, only: format_lut
    implicit none
    
    type(format_lut) :: image
    integer, dimension(1:8, 3) :: colors = reshape( [ &
          0,     0,     0,   &
        255,     0,     0,   &
          0,   255,     0,   &
          0,     0,   255,   &
        255,   255,     0,   &
          0,   255,   255,   &
        255,     0,   255,   &
        255,   255,   255 ], &
        shape(colors), order = [2, 1] )

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

    call image%set(num_colors=8, dim_colors=3, colors=colors)
    call image%export('lut_files/test15')

    call image%finalize()

end program test15