Apply fix sent by Elena Ivanova (Oracle)
authorjulie <julielangou@users.noreply.github.com>
Fri, 13 Sep 2013 21:32:40 +0000 (21:32 +0000)
committerjulie <julielangou@users.noreply.github.com>
Fri, 13 Sep 2013 21:32:40 +0000 (21:32 +0000)
commit24b0454b7d7804c73fe52acdacf1532f16d402f8
treec5a541a59cdb9c7dd77d9bc99a6bd48a28d78c4b
parentedde389f8545e8e1801ea42b8333735fe1868e10
Apply fix sent by Elena Ivanova (Oracle)

There is FPE in the 457th line of CDRVRFP:
cdrvrfp.f
(dbx) where
=>[1] cdrvrfp(nout = 6, nn = 9, nval = ARRAY, nns = 3, nsval = ARRAY, nnt = 9, ntval = ARRAY, thresh = 30.0, a = ARRAY, asav = ARRAY, afac = ARRAY, ainv = ARRAY, b = ARRAY, bsav = ARRAY, xact = ARRAY, x = ARRAY, arf = ARRAY, arfinv = ARRAY, c_work_clatms = ARRAY, c_work_cpot02 = ARRAY, c_work_cpot03 = ARRAY, s_work_clatms = ARRAY, s_work_clanhe = ARRAY, s_work_cpot01 = ARRAY, s_work_cpot02 = ARRAY, s_work_cpot03 = ARRAY), line 457 in "cdrvrfp.f"

MAIN(), line 244 in "cchkrfp.f"
When N=0, attempt to calculate a condition number → FPE, because we try to delete by zero (ANORM = 0.0, AINVNM = 0.0) in the 457th line:
Line 457:
      RCONDC = ( ONE / ANORM ) / AINVNM
TESTING/LIN/cdrvrfp.f
TESTING/LIN/ddrvrfp.f
TESTING/LIN/sdrvrfp.f
TESTING/LIN/zdrvrfp.f