From f57fa66983615c4a9f6d35c900b62dbf32436118 Mon Sep 17 00:00:00 2001 From: Patrick Shriwise Date: Fri, 12 Oct 2018 21:50:25 -0500 Subject: [PATCH] Remove free plots memory function. --- src/api.F90 | 1 - src/plot_header.F90 | 6 ------ 2 files changed, 7 deletions(-) diff --git a/src/api.F90 b/src/api.F90 index c5ab06f592..25a992c9f6 100644 --- a/src/api.F90 +++ b/src/api.F90 @@ -85,7 +85,6 @@ contains call free_memory_geometry() call free_memory_surfaces() call free_memory_material() - call free_memory_plot() call free_memory_volume() call free_memory_simulation() call free_memory_nuclide() diff --git a/src/plot_header.F90 b/src/plot_header.F90 index 81a8f7f9fe..0495d83d37 100644 --- a/src/plot_header.F90 +++ b/src/plot_header.F90 @@ -65,12 +65,6 @@ contains ! FREE_MEMORY_PLOT deallocates global arrays defined in this module !=============================================================================== - subroutine free_memory_plot() - n_plots = 0 - if (allocated(plots)) deallocate(plots) - call plot_dict % clear() - end subroutine free_memory_plot - !=============================================================================== ! RUN_PLOT controls the logic for making one or many plots !===============================================================================