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

wangqian · wangqian · commit 64fa709d1f2b · 2011-09-05T16:30:55.000Z
diff --git a/test/cblat3.f b/test/cblat3.f
@@ -1301,6 +1301,8 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       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
@@ -1303,6 +1303,8 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       NC = 0
       RESET = .TRUE.
       ERRMAX = RZERO
+      RALS = RONE
+      RBETS = RONE
 *
       DO 100 IN = 1, NIDIM
          N = IDIM( IN )

Original file line number	Diff line number	Diff line change
`@@ -1301,6 +1301,8 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`1301`	`1301`	`NC = 0`
`1302`	`1302`	`RESET = .TRUE.`
`1303`	`1303`	`ERRMAX = RZERO`
	`1304`	`+ RALS = RONE`
	`1305`	`+ RBETS = RONE`
`1304`	`1306`	`*`
`1305`	`1307`	`DO 100 IN = 1, NIDIM`
`1306`	`1308`	`N = IDIM( IN )`
Original file line number	Diff line number	Diff line change
`@@ -1303,6 +1303,8 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`1303`	`1303`	`NC = 0`
`1304`	`1304`	`RESET = .TRUE.`
`1305`	`1305`	`ERRMAX = RZERO`
	`1306`	`+ RALS = RONE`
	`1307`	`+ RBETS = RONE`
`1306`	`1308`	`*`
`1307`	`1309`	`DO 100 IN = 1, NIDIM`
`1308`	`1310`	`N = IDIM( IN )`