From 653d8d0d65119f7750cf546bd4b28b6a549535af Mon Sep 17 00:00:00 2001 From: Rui Peng Li Date: Fri, 29 Mar 2024 22:36:30 -0700 Subject: [PATCH] remove wrong code --- bbb/oderhs.m | 2 -- 1 file changed, 2 deletions(-) diff --git a/bbb/oderhs.m b/bbb/oderhs.m index b57c7aa4..315440c6 100755 --- a/bbb/oderhs.m +++ b/bbb/oderhs.m @@ -8795,8 +8795,6 @@ c jcsc(neq+1) = nnz call jac_calc_c(neq, t, yl, yldot00, ml, mu, wk, . nnzmx, 0.0, rcsc, icsc, jcsc, yldot_pert, nnz) - print *, 'nnz', nnz - 1 - call exit c ... Convert Jacobian from compressed sparse column to compressed c sparse row format. call csrcsc (neq, 1, 1, rcsc, icsc, jcsc, jac, ja, ia)