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

2011-09-05 16:30:55 +00:00 · 2011-09-05 16:30:55 +00:00 · 64fa709d1f
parent 74d4cdb81a
commit 64fa709d1f
2 changed files with 4 additions and 0 deletions
--- 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 )
--- 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 )