Functions/Subroutines
subroutine	catsma (ncelet, ncel, ncesmp, iterns, isnexp, thetv, icetsm, itpsmp, volume, pvara, smcelp, gamma, tsexp, tsimp, gapinj)

Function/Subroutine Documentation

◆ catsma()

subroutine catsma	(	integer	ncelet,
		integer	ncel,
		integer	ncesmp,
		integer	iterns,
		integer	isnexp,
		double precision	thetv,
		integer, dimension(ncesmp)	icetsm,
		integer, dimension(ncesmp)	itpsmp,
		double precision, dimension(ncelet)	volume,
		double precision, dimension (ncelet)	pvara,
		double precision, dimension(ncesmp)	smcelp,
		double precision, dimension (ncesmp)	gamma,
		double precision, dimension (ncelet)	tsexp,
		double precision, dimension (ncelet)	tsimp,
		double precision, dimension(ncelet)	gapinj
	)