Fixed #46. Initialize variables in cblat3.f and zblat3.f.

diff --git a/test/cblat3.f b/test/cblat3.f
index b26be91..5df1ddd 100644 (file)
--- a/test/cblat3.f
+++ b/test/cblat3.f
@@ -1301,6 +1301,8 @@
       NC = 0
       RESET = .TRUE.
       ERRMAX = RZERO
+      RALS = RONE
+      RBETS = RONE
 *
       DO 100 IN = 1, NIDIM
          N = IDIM( IN )

diff --git a/test/zblat3.f b/test/zblat3.f
index d6a522f..f03b1a6 100644 (file)
--- a/test/zblat3.f
+++ b/test/zblat3.f
@@ -1303,6 +1303,8 @@
       NC = 0
       RESET = .TRUE.
       ERRMAX = RZERO
+      RALS = RONE
+      RBETS = RONE
 *
       DO 100 IN = 1, NIDIM
          N = IDIM( IN )