diff --git a/example/colormaps_list.f90 b/example/colormaps_list.f90 index fa970c6..8920bd6 100644 --- a/example/colormaps_list.f90 +++ b/example/colormaps_list.f90 @@ -27,20 +27,20 @@ program colormaps_list use forcolormap_info, only: Colormaps_info implicit none - + type(Colormaps_info) :: info - + ! Set all colormap information call info%set_all() - + !! Write colormap information to a file call info%write(gradient='Sequential', file_name='colormaps_list/COLORMAPS_LIST_SEQ.md', verbose=4) call info%write(gradient='Multi-Sequential', file_name='colormaps_list/COLORMAPS_LIST_MSQ.md', verbose=4) call info%write(gradient='Diverging', file_name='colormaps_list/COLORMAPS_LIST_DIV.md', verbose=4) call info%write(gradient='Categorical', file_name='colormaps_list/COLORMAPS_LIST_CAT.md', verbose=4) - call info%write(gradient='Cyclic', file_name='colormaps_list/COLORMAPS_LIST_CYC.md', verbose=4) + call info%write(gradient='Cyclic', file_name='colormaps_list/COLORMAPS_LIST_CYC.md', verbose=4) ! Deallocate all colormap information call info%finalize() -end program colormaps_list \ No newline at end of file +end program colormaps_list diff --git a/example/info.f90 b/example/info.f90 index b9fc433..5303e21 100644 --- a/example/info.f90 +++ b/example/info.f90 @@ -27,31 +27,27 @@ program write_info use forcolormap_info, only: Colormaps_info implicit none - + type(Colormaps_info) :: info - + ! Set all colormap information call info%set_all() - + !! Print all colormap information using default verbosity (level 1) ! verbose: 1 (default) prints a table , 2 prints a box, 3 prints the name call info%write() - - !! Filter and write colormap information !! Available filters: name, family, gradient, palette, author, license, levels ! Filter by gradient using default verbosity (level 1) call info%write(gradient='Sequential', palette='Continuous') - + ! Filter by gradient and palette using default verbosity (level 1) call info%write(gradient='Sequential', palette='Continuous') - + ! Filter by family and palette using verbosity level 2 call info%write(family='vik', gradient='Diverging', palette='Continuous', verbose=2) - - !! Write colormap information to a file call info%write(gradient='Sequential', file_name='COLORMAPS_LIST.md', verbose=4) @@ -59,10 +55,8 @@ program write_info call info%write(gradient='Diverging', file_name='COLORMAPS_LIST.md', verbose=4) call info%write(gradient='Categorical', file_name='COLORMAPS_LIST.md', verbose=4) call info%write(gradient='Cyclic', file_name='COLORMAPS_LIST.md', verbose=4) - ! Deallocate all colormap information call info%finalize() end program write_info - diff --git a/test/check.f90 b/test/check.f90 index bb31fff..96641bf 100644 --- a/test/check.f90 +++ b/test/check.f90 @@ -80,16 +80,15 @@ program check ! Name is not in the list call cmap%set('actom10', 0.0_wp, 2.0_wp) if (cmap%get_name() /= 'grayC') error stop "ERROR: colormap%check() name" - + ! Maximum value is less than minimum value call cmap%set('acton10', 2.0_wp, 0.0_wp) if (cmap%get_zmin() /= 0.0_wp .or. cmap%get_zmax() /= 2.0_wp) error stop "ERROR: colormap%check() zmin > zmax" - + ! Number of levels is not equal to predefined number of levels call cmap%set('acton10', 0.0_wp, 2.0_wp, 256) if (cmap%get_levels() /= 10) error stop "ERROR: colormap%check() levels /= predefined levels" - !! Test check() procedure within create() procedure ! Maximum value is less than minimum value call cmap%create("discrete", 2.0_wp, 0.0_wp, test_colormap)