Browse Source

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

tags/v0.1.0^2
traz 14 years ago
parent
commit
64fa709d1f
2 changed files with 4 additions and 0 deletions
  1. +2
    -0
      test/cblat3.f
  2. +2
    -0
      test/zblat3.f

+ 2
- 0
test/cblat3.f View File

@@ -1301,6 +1301,8 @@
NC = 0
RESET = .TRUE.
ERRMAX = RZERO
RALS = RONE
RBETS = RONE
*
DO 100 IN = 1, NIDIM
N = IDIM( IN )


+ 2
- 0
test/zblat3.f View File

@@ -1303,6 +1303,8 @@
NC = 0
RESET = .TRUE.
ERRMAX = RZERO
RALS = RONE
RBETS = RONE
*
DO 100 IN = 1, NIDIM
N = IDIM( IN )


Loading…
Cancel
Save