Add example

Author: jchristopherson

examples/CMakeLists.txt

@@ -1,3 +1,5 @@
+find_package(fstring QUIET)
+
 # Example 1
 add_executable(generic_2d_plot generic_2d_plot.f90)
 target_link_libraries(generic_2d_plot fplot)
@@ -147,6 +149,10 @@ target_link_libraries(correlation_plot_example fplot)
 add_executable(margins_example margins_example.f90)
 target_link_libraries(margins_example fplot)
 
+# Example 38
+add_executable(box_whisker_example box_whisker_example.f90)
+target_link_libraries(box_whisker_example fplot fstring::fstring)
+
 if (${BUILD_SHARED_LIBS} AND WIN32)
     add_custom_command(
         TARGET generic_2d_plot
@@ -156,4 +162,4 @@ if (${BUILD_SHARED_LIBS} AND WIN32)
         $<TARGET_FILE_DIR:generic_2d_plot>
         COMMAND_EXPAND_LISTS
     )
-endif()
+endif()

examples/box_whisker_example.f90

@@ -0,0 +1,35 @@
+program example
+    use iso_fortran_env
+    use fplot_core
+    use strings
+    implicit none
+
+    ! Variables
+    integer(int32), parameter :: n = 5
+    integer(int32) :: i
+    type(string) :: titles(n)
+    real(real64) :: boxmin(n), boxmax(n), whiskermin(n), whiskermax(n)
+    type(plot_2d) :: plt
+    type(plot_data_box_whisker) :: pd
+
+    ! Initialization
+    do i = 1, n
+        titles(i) = "Item " // to_string(i)
+    end do
+    call random_number(whiskermin)
+    call random_number(whiskermax)
+    call random_number(boxmin)
+    call random_number(boxmax)
+
+    ! Ensure proper order
+    boxmin = boxmin + whiskermin
+    boxmax = boxmin + boxmax
+    whiskermax = whiskermax + boxmax
+
+    ! Create the plot
+    call plt%initialize()
+
+    call pd%define_data(titles, boxmin, boxmax, whiskermin, whiskermax)
+    call plt%push(pd)
+    call plt%draw()
+end program