Fix potential spurious failure from uninitialized variable

diff --git a/ctest/c_zblat3.f b/ctest/c_zblat3.f
index 5df834b..cc109d6 100644 (file)
--- a/ctest/c_zblat3.f
+++ b/ctest/c_zblat3.f
@@ -1504,6 +1504,8 @@ C     $      '      .' )
       NC = 0
       RESET = .TRUE.
       ERRMAX = RZERO
+      RALS = RONE
+      RBETS = RONE
 *
       DO 100 IN = 1, NIDIM
          N = IDIM( IN )