Lines Matching refs:srcJac
112 & srcRat1,src1, srcJac) argument
124 & src(npro,2), srcJac(npro,4), local
361 srcJac(e,1) = -(pk_k) ! jacobian for k PDE alone
362 srcJac(e,3) = -(pk_eps-rho(e)) ! d(Fsrck)/d(epsilon)
363 srcJac(e,2) = -(
370 srcJac(e,4) = -(
389 srcJac(e,1) = max( srcJac(e,1), srcRat(e,1), 0.d0 )
390 srcJac(e,4) = max( srcJac(e,4), srcRat(e,2), 0.d0 )
395 tmp1 = min( srcJac(e,1) * srcJac(e,4),
396 & (srcJac(e,1)-srcRat(e,1)) *
397 & (srcJac(e,4)-srcRat(e,2)) )
398 tmp2 = srcJac(e,2) * srcJac(e,3)
403 srcJac(e,2) = tmp2 * srcJac(e,2)
404 srcJac(e,3) = tmp2 * srcJac(e,3)