test_078 Subroutine

subroutine test_078(id, nfail)

Uses

  • proc~~test_078~~UsesGraph proc~test_078 test_078 module~forcolormap forcolormap proc~test_078->module~forcolormap module~forcolormap_cm_matplotlib forcolormap_cm_matplotlib module~forcolormap->module~forcolormap_cm_matplotlib module~forcolormap_cm_miscellaneous forcolormap_cm_miscellaneous module~forcolormap->module~forcolormap_cm_miscellaneous module~forcolormap_cm_scientific forcolormap_cm_scientific module~forcolormap->module~forcolormap_cm_scientific module~forcolormap_info forcolormap_info module~forcolormap->module~forcolormap_info module~forcolormap_parameters forcolormap_parameters module~forcolormap->module~forcolormap_parameters module~forcolormap_utils forcolormap_utils module~forcolormap->module~forcolormap_utils module~forcolormap_cm_matplotlib->module~forcolormap_parameters module~forcolormap_cm_miscellaneous->module~forcolormap_parameters module~forcolormap_cm_scientific->module~forcolormap_parameters module~forcolormap_info->module~forcolormap_cm_matplotlib module~forcolormap_info->module~forcolormap_cm_miscellaneous module~forcolormap_info->module~forcolormap_cm_scientific module~forcolormap_info->module~forcolormap_parameters iso_fortran_env iso_fortran_env module~forcolormap_parameters->iso_fortran_env module~forcolormap_utils->module~forcolormap_parameters

colorbar() should produce an output image file (existence is the main check here).

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: id
integer, intent(inout) :: nfail

Calls

proc~~test_078~~CallsGraph proc~test_078 test_078 proc~delete_if_exists delete_if_exists proc~test_078->proc~delete_if_exists proc~exists_file exists_file proc~test_078->proc~exists_file proc~report_test report_test proc~test_078->proc~report_test proc~set Colormap%set proc~test_078->proc~set proc~write_ppm_colorbar Colormap%write_ppm_colorbar proc~test_078->proc~write_ppm_colorbar proc~assign_map Colormap%assign_map proc~set->proc~assign_map proc~check Colormap%check proc~set->proc~check proc~cubehelix_colormap cubehelix_colormap proc~set->proc~cubehelix_colormap proc~fire_colormap fire_colormap proc~set->proc~fire_colormap proc~inv_rainbow_colormap inv_rainbow_colormap proc~set->proc~inv_rainbow_colormap proc~rainbow_colormap rainbow_colormap proc~set->proc~rainbow_colormap proc~reverse Colormap%reverse proc~set->proc~reverse proc~zebra_colormap zebra_colormap proc~set->proc~zebra_colormap export_pnm export_pnm proc~write_ppm_colorbar->export_pnm get_format get_format proc~write_ppm_colorbar->get_format local local proc~write_ppm_colorbar->local proc~compute_rgb Colormap%compute_RGB proc~write_ppm_colorbar->proc~compute_rgb set_format set_format proc~write_ppm_colorbar->set_format set_pnm set_pnm proc~write_ppm_colorbar->set_pnm proc~find_index Colormaps_info%find_index proc~check->proc~find_index proc~get_levels~2 Colormaps_info%get_levels proc~check->proc~get_levels~2 proc~get_rgb Colormap%get_RGB proc~compute_rgb->proc~get_rgb proc~cubehelix_colormap->local

Called by

proc~~test_078~~CalledByGraph proc~test_078 test_078 program~check check program~check->proc~test_078

Source Code

   subroutine test_078(id, nfail)
      use forcolormap, only: Colormap, wp
      integer, intent(inout) :: id, nfail
      character(len=*), parameter :: name = "colorbar() writes a PPM file"
      logical :: ok
      type(Colormap) :: cm
      character(len=*), parameter :: fname = "test_tmp_colorbar.ppm"

      call cm%set("viridis", 0.0_wp, 1.0_wp)
      call cm%colorbar(fname, width=16, height=4)

      ok = exists_file(fname) .or. exists_file(trim(fname)//".ppm") .or. exists_file("test_tmp_colorbar")

      call delete_if_exists(fname)
      call delete_if_exists(trim(fname)//".ppm")
      call delete_if_exists("test_tmp_colorbar")

      call report_test(name, ok, id, nfail)
   end subroutine test_078