From 64fa709d1f2b758a5bcea3f32f2bb50ddae97e30 Mon Sep 17 00:00:00 2001 From: traz Date: Mon, 5 Sep 2011 16:30:55 +0000 Subject: [PATCH] Fixed #46. Initialize variables in cblat3.f and zblat3.f. --- test/cblat3.f | 2 ++ test/zblat3.f | 2 ++ 2 files changed, 4 insertions(+) diff --git a/test/cblat3.f b/test/cblat3.f index b26be91..5df1ddd 100644 --- 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 --- 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 ) -- 2.7.4