DOC: Add dcostrings for r283 C API.

MilanSkocic · Nov 26, 2023 · f7debb9 · f7debb9
1 parent 0c0c93b
commit f7debb9
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/iapws_r283_capi.f90 b/src/iapws_r283_capi.f90
@@ -5,19 +5,19 @@ module iapws__r283_capi
     implicit none
 
     real(c_double), protected, bind(C, name="iapws_r283_capi_Tc_H2O") &
-    :: iapws_r283_capi_Tc_H2O = iapws_r283_Tc_H2O
+    :: iapws_r283_capi_Tc_H2O = iapws_r283_Tc_H2O !! Critical temperature for H2O in K
     real(c_double), protected, bind(C, name="iapws_r283_capi_Tc_D2O") &
-    :: iapws_r283_capi_Tc_D2O = iapws_r283_Tc_D2O
+    :: iapws_r283_capi_Tc_D2O = iapws_r283_Tc_D2O !! Critical temperature for D2O in K
 
     real(c_double), protected, bind(C, name="iapws_r283_capi_pc_H2O") &
-    :: iapws_r283_capi_pc_H2O = iapws_r283_pc_H2O
+    :: iapws_r283_capi_pc_H2O = iapws_r283_pc_H2O !! Critical pressure for H2O in MPa
     real(c_double), protected, bind(C, name="iapws_r283_capi_pc_D2O") &
-    :: iapws_r283_capi_pc_D2O = iapws_r283_pc_D2O
+    :: iapws_r283_capi_pc_D2O = iapws_r283_pc_D2O !! Critical pressure for D2O in MPa
 
     real(c_double), protected, bind(C, name="iapws_r283_capi_rhoc_H2O") &
-    :: iapws_r283_capi_rhoc_H2O = iapws_r283_rhoc_H2O
+    :: iapws_r283_capi_rhoc_H2O = iapws_r283_rhoc_H2O !! Critical density for H2O in kg.m-3
     real(c_double), protected, bind(C, name="iapws_r283_capi_rhoc_D2O") &
-    :: iapws_r283_capi_rhoc_D2O = iapws_r283_rhoc_D2O
+    :: iapws_r283_capi_rhoc_D2O = iapws_r283_rhoc_D2O !! Critical density for D2O in kg.m-3
 
 
 end module