minor changes

bbb/bbb.v

@@ -2804,10 +2804,12 @@ lbw                  integer
 ***** Condition_number:
 rconds(300,ngrid)	_real	# condition numbers of Jacobians
 
+***** Jacobianmm:
+savemm      integer /0/ # if save every Jacobian in a file in MatrixMarket format
+mmcount     integer /0/ # number of Jacobian matrix saved in MatrixMarket format
+
 ***** Jacobian:
 #Jacobian matrix in compressed sparse row format
-savemm      integer /0  # if save every Jacobian in a file in MatrixMarket format
-mmcount     integer /0/ # number of Jacobian matrix saved in MatrixMarket format
 neqp1		integer		# Dimension (=neq+1) of jaci
 nnzmx		integer		# Maximum no. of nonzeros in Jacobian matrix.
 jac(nnzmx)	_real		# Nonzero entries of the Jacobian matrix.

bbb/oderhs.m

@@ -8549,7 +8549,7 @@ integer ia(neq+1)   # pointers to beginning of each row in jac,ja
       Use(Grid)                    # ngrid,ig,ijac,ijactot
       Use(Indexes)                 # igyl,iseqalg
       Use(Variable_perturbation)   # del,dylconst
-      Use(Jacobian)                # savemm
+      Use(Jacobianmm)              # savemm
       Use(Jacobian_clipping)       # jaccliplim,istopjac,irstop,icstop
       Use(Jacobian_csc)            # rcsc,jcsc,icsc,yldot_pert
       Use(Ynorm)                   # suscal,sfscal
@@ -8735,7 +8735,7 @@ ccc            call pandf1 (xc, yc, iv, neq, t, yl, wk)
 c     sparse row format.
       call csrcsc (neq, 1, 1, rcsc, icsc, jcsc, jac, ja, ia)
 c     Save Jacobian in MatrixMarket form
-      if (savemm .ge. 0) then
+      if (savemm .gt. 0) then
          call jacmm()
       endif
 
@@ -10275,7 +10275,8 @@ character str(strlen)
 
 c ... Common blocks:
       Use(Lsode)      # neq
-      Use(Jacobian)   # jac,jacj,jaci, mmcount
+      Use(Jacobian)   # jac,jacj,jaci
+      Use(Jacobianmm) # mmcount
 
 c ... Local variables:
       integer i, j, us