Water props API.

MilanSkocic · Jan 1, 2025 · 4bba8da · 4bba8da
1 parent 0259d9e
commit 4bba8da
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/iapws_api.f90 b/src/iapws_api.f90
@@ -83,12 +83,17 @@ pure subroutine waterproperty(p, T, prop, res)
     !!     * w: speed of sound
 
     ! parameters
-    real(dp), intent(in) :: p                 !! Pressure in MPa.
-    real(dp), intent(in) :: T                 !! Pressure in K.
+    real(dp), intent(in) :: p(:)                 !! Pressure in MPa.
+    real(dp), intent(in) :: T(:)                 !! Pressure in K.
     character(len=*), intent(in) :: prop      !! Property
-    real(dp), intent(out) :: res
+    real(dp), intent(out) :: res(:)
+
+    ! variables
+    integer(int32) :: regions(size(p))
 
     res = ieee_value(1.0_dp, ieee_quiet_nan)
+    ! regions = find_region(p, T)
+
 end subroutine
 ! ------------------------------------------------------------------------------