[Fortran API] add default initializers and make member variables priv…

…ate (#1005) * add default initializers and make member variables private in opaque data types
electronic-structure · Jul 16, 2024 · 56ab2f5 · 56ab2f5
1 parent be0b3f8
commit 56ab2f5
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/api/sirius.f90 b/src/api/sirius.f90
@@ -22,17 +22,20 @@ module sirius
 
 !> @brief Opaque wrapper for simulation context handler.
 type sirius_context_handler
-    type(C_PTR) :: handler_ptr_
+    private
+    type(C_PTR) :: handler_ptr_ = C_NULL_PTR
 end type
 
 !> @brief Opaque wrapper for DFT ground statee handler.
 type sirius_ground_state_handler
-    type(C_PTR) :: handler_ptr_
+    private
+    type(C_PTR) :: handler_ptr_ = C_NULL_PTR
 end type
 
 !> @brief Opaque wrapper for K-point set handler.
 type sirius_kpoint_set_handler
-    type(C_PTR) :: handler_ptr_
+    private
+    type(C_PTR) :: handler_ptr_ = C_NULL_PTR
 end type
 
 !> @brief Free any of the SIRIUS handlers (context, ground state or k-points).