subroutine srclay(depth,lmax,dph)	implicit none	real depth, dph	integer lmax	integer LER, LIN, LOT	parameter (LER=0, LIN=5, LOT=6)	integer NL	parameter(NL=100)	common/timodel/D(NL),TA(NL),TC(NL),TL(NL),TN(NL),TF(NL),     1		TRho(NL),     2		qa(NL),qb(NL),etap(NL),etas(NL),      3		frefp(NL), frefs(NL)	real D, TA, TC, TF, TL, TN, TRho	real qa, qb, etap, etas, frefp, frefs	common/modlly/mmax	integer mmax	common/lyrctl/lyrins	logical lyrins	if(.not.lyrins)then		call modcpy(.false.)		call insert(depth)	endif	call srclyr(depth,lmax,dph)	return	end