From 54b56aef4b4079065aa230ff5396feb1bf70c534 Mon Sep 17 00:00:00 2001
From: Hiroaki Matsui <hrmatsui@ucdavis.edu>
Date: Fri, 18 Oct 2024 14:42:50 -0700
Subject: [PATCH] Add macro to skip private statements

---
 .../SERIAL_src/IO/write_pick_sph_spectr_data.F90               | 3 +++
 .../SERIAL_src/IO_ZLIB/gz_layer_spectr_monitor_IO.F90          | 2 ++
 .../SERIAL_src/IO_ZLIB/gz_volume_spectr_monitor_IO.F90         | 2 ++
 3 files changed, 7 insertions(+)

diff --git a/src/Fortran_libraries/SERIAL_src/IO/write_pick_sph_spectr_data.F90 b/src/Fortran_libraries/SERIAL_src/IO/write_pick_sph_spectr_data.F90
index 9a601033..0be4716a 100644
--- a/src/Fortran_libraries/SERIAL_src/IO/write_pick_sph_spectr_data.F90
+++ b/src/Fortran_libraries/SERIAL_src/IO/write_pick_sph_spectr_data.F90
@@ -35,7 +35,10 @@ module write_pick_sph_spectr_data
 !
       implicit  none
 !
+#ifdef ZLIB_IO
       private :: gz_write_picked_spec_data
+#endif
+!
       private :: dup_pick_sph_file_header_base
 !
 ! -----------------------------------------------------------------------
diff --git a/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_layer_spectr_monitor_IO.F90 b/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_layer_spectr_monitor_IO.F90
index 32ac0031..e0ca41d2 100644
--- a/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_layer_spectr_monitor_IO.F90
+++ b/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_layer_spectr_monitor_IO.F90
@@ -55,7 +55,9 @@ module gz_layer_spectr_monitor_IO
 !
       implicit none
 !
+#ifdef ZLIB_IO
       private :: gz_write_layer_spectr_monitor
+#endif
 !
 ! -----------------------------------------------------------------------
 !
diff --git a/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_volume_spectr_monitor_IO.F90 b/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_volume_spectr_monitor_IO.F90
index 78911806..ad4aa67a 100644
--- a/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_volume_spectr_monitor_IO.F90
+++ b/src/Fortran_libraries/SERIAL_src/IO_ZLIB/gz_volume_spectr_monitor_IO.F90
@@ -46,7 +46,9 @@ module gz_volume_spectr_monitor_IO
 !
       implicit none
 !
+#ifdef ZLIB_IO
       private :: gz_write_volume_spectr_monitor
+#endif
 !
 ! -----------------------------------------------------------------------
 !