SetLoss.for File Reference

Functions/Subroutines
subroutine	setloss (nlog, icx, l2, fac, maxopr, intern, Oprloss, OprLossC, ioprloss, nCarry, nRiver, ncnum, OprLost, OprEff1, OprEffT, TranLoss, internT, internL, corid1)

Function/Subroutine Documentation

setloss()

subroutine setloss	(		nlog,
			icx,
			l2,
			fac,
			maxopr,
		dimension(maxopr,20)	intern,
		dimension(maxopr)	Oprloss,
		dimension(maxopr,20)	OprLossC,
			ioprloss,
			nCarry,
			nRiver,
			ncnum,
			OprLost,
			OprEff1,
			OprEffT,
			TranLoss,
		dimension(maxopr,20)	internT,
			internL,
		character	corid1
	)