Add macro to skip private statements

hiromatsui · hiromatsui · commit 54b56aef4b40 · 2024-10-18T14:42:50.000-07:00
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
@@ -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
@@ -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
@@ -46,7 +46,9 @@ module gz_volume_spectr_monitor_IO
 !
       implicit none
 !
+#ifdef ZLIB_IO
       private :: gz_write_volume_spectr_monitor
+#endif
 !
 ! -----------------------------------------------------------------------
 !

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,10 @@ module write_pick_sph_spectr_data`
`35`	`35`	`!`
`36`	`36`	`implicit none`
`37`	`37`	`!`
	`38`	`+#ifdef ZLIB_IO`
`38`	`39`	`private :: gz_write_picked_spec_data`
	`40`	`+#endif`
	`41`	`+!`
`39`	`42`	`private :: dup_pick_sph_file_header_base`
`40`	`43`	`!`
`41`	`44`	`! -----------------------------------------------------------------------`
Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,9 @@ module gz_layer_spectr_monitor_IO`
`55`	`55`	`!`
`56`	`56`	`implicit none`
`57`	`57`	`!`
	`58`	`+#ifdef ZLIB_IO`
`58`	`59`	`private :: gz_write_layer_spectr_monitor`
	`60`	`+#endif`
`59`	`61`	`!`
`60`	`62`	`! -----------------------------------------------------------------------`
`61`	`63`	`!`
Original file line number	Diff line number	Diff line change
`@@ -46,7 +46,9 @@ module gz_volume_spectr_monitor_IO`
`46`	`46`	`!`
`47`	`47`	`implicit none`
`48`	`48`	`!`
	`49`	`+#ifdef ZLIB_IO`
`49`	`50`	`private :: gz_write_volume_spectr_monitor`
	`51`	`+#endif`
`50`	`52`	`!`
`51`	`53`	`! -----------------------------------------------------------------------`
`52`	`54`	`!`