diff --git a/ctest/c_zblat3.f b/ctest/c_zblat3.f
index 5df834b2e..cc109d651 100644
--- 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 )