beta-parameterization 2.3.3__tar.gz → 2.3.5__tar.gz

{beta_parameterization-2.3.3 → beta_parameterization-2.3.5}/CMakeLists.txt

@@ -3,7 +3,7 @@ cmake_minimum_required(VERSION 3.20)
 include(FetchContent)
 
 project(beta-parameterization
-        VERSION 2.3.3
+        VERSION 2.3.4
         LANGUAGES Fortran CXX
         DESCRIPTION "Beta parameterization for nuclear physics applications"
 )
@@ -16,7 +16,7 @@ set(CMAKE_CXX_EXTENSIONS OFF)
 FetchContent_Declare(
         GCC-Compiler-Options
         GIT_REPOSITORY https://github.com/AleksanderAugustyn/GCC-Compiler-Options.git
-        GIT_TAG 1.6.0
+        GIT_TAG 2.0.0
 )
 FetchContent_MakeAvailable(GCC-Compiler-Options)
 
@@ -24,7 +24,7 @@ FetchContent_MakeAvailable(GCC-Compiler-Options)
 FetchContent_Declare(
         Fortran-Foundations
         GIT_REPOSITORY https://github.com/AleksanderAugustyn/Fortran-Foundations.git
-        GIT_TAG 2.3.1
+        GIT_TAG 2.3.2
 )
 FetchContent_MakeAvailable(Fortran-Foundations)
 

{beta_parameterization-2.3.3 → beta_parameterization-2.3.5}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.4
 Name: beta-parameterization
-Version: 2.3.3
+Version: 2.3.5
 Summary: Python bindings for the beta (Legendre) nuclear-shape parameterization library
 License-Expression: MIT
 License-File: LICENSE

{beta_parameterization-2.3.3 → beta_parameterization-2.3.5}/tests/beta_param_breakdown_test.f08

@@ -45,12 +45,13 @@ contains
 
         call cache%init(2_ik, N_GRID, code, message)
         beta_star = 2.0_rk / n2
+        params(1) = 0.0_rk
 
-        params = [0.0_rk, beta_star * (1.0_rk - 1.0e-3_rk)]
+        params(2) = beta_star * (1.0_rk - 1.0e-3_rk)
         call cache%compute_radius_grid(params, radii, code, message)
         call assert_int_eq(code, LEGENDRE_VALID, 'breakdown: 0.999 beta* valid')
 
-        params = [0.0_rk, beta_star * (1.0_rk + 1.0e-3_rk)]
+        params(2) = beta_star * (1.0_rk + 1.0e-3_rk)
         call cache%compute_radius_grid(params, radii, code, message)
         call assert_int_eq(code, LEGENDRE_ERROR_INTERIOR_NEGATIVE, &
                 'breakdown: 1.001 beta* rejected as interior-negative')
@@ -65,12 +66,13 @@ contains
 
         call cache%init(2_ik, N_GRID, code, message)
         beta_pole = -1.0_rk / n2
+        params(1) = 0.0_rk
 
-        params = [0.0_rk, beta_pole * (1.0_rk - 1.0e-3_rk)]
+        params(2) = beta_pole * (1.0_rk - 1.0e-3_rk)
         call cache%compute_radius_grid(params, radii, code, message)
         call assert_int_eq(code, LEGENDRE_VALID, 'breakdown: 0.999 pole crossing valid')
 
-        params = [0.0_rk, beta_pole * (1.0_rk + 1.0e-3_rk)]
+        params(2) = beta_pole * (1.0_rk + 1.0e-3_rk)
         call cache%compute_radius_grid(params, radii, code, message)
         call assert_true(code == LEGENDRE_ERROR_NORTH_POLE .or. code == LEGENDRE_ERROR_SOUTH_POLE, &
                 'breakdown: 1.001 pole crossing rejected as pole error')
@@ -93,7 +95,8 @@ contains
         n_valid = 0_ik
 
         do k = -30_ik, 30_ik
-            params = [0.0_rk, real(k, rk) * 0.1_rk]
+            params(1) = 0.0_rk
+            params(2) = real(k, rk) * 0.1_rk
             call cache%compute_radius_grid(params, radii, code, message)
             if (code /= LEGENDRE_VALID) cycle
             n_valid = n_valid + 1_ik

{beta_parameterization-2.3.3 → beta_parameterization-2.3.5}/tests/beta_param_error_test.f08

@@ -90,7 +90,8 @@ contains
             do j = 0_ik, 6_ik
                 b1 = real(i, rk) * 0.25_rk
                 b3 = real(j, rk) * 0.25_rk
-                params = [b1, 0.5_rk, b3, 0.0_rk]
+                params(1) = b1; params(2) = 0.5_rk
+                params(3) = b3; params(4) = 0.0_rk
                 call cache%compute_radius_grid_with_com_shift(params, radii, corrected, c, msg)
                 if (c == LEGENDRE_ERROR_COM_NOT_CONVERGED) n_hit = n_hit + 1_ik
             end do

{beta_parameterization-2.3.3 → beta_parameterization-2.3.5}/tests/golden_capture.f08

@@ -73,7 +73,11 @@ contains
         call cache%compute_radius_and_derivative(beta_con, node_set, radii, dr, c, msg)
         call assert_int_eq(c, LEGENDRE_VALID, name // ': evaluated')
 
-        values = [corrected_beta10, r_north, r_south, radii, dr]
+        values(1)   = corrected_beta10
+        values(2)   = r_north
+        values(3)   = r_south
+        values(4:6) = radii
+        values(7:9) = dr
         write(*, '(A,A,A)') 'real(kind = rk), parameter :: ', name, '_NODE_SET_EXPECTED(9) = [ &'
         do i = 1_ik, 8_ik
             write(*, '(A,ES24.16E3,A)') '        ', values(i), '_rk, &'