subroutine aqjex(neq, t, y, ia, ja, pdj, j, rpar, ipar)
      if (neq.ne.0) then
        write(*,*) ' Error: AQJEX is a dummy routine'
        stop
      endif
      return
      end