srclay.f

来自「gsac程序包」· F 代码 · 共 21 行

	subroutine srclay(depth,lmax,dph)
	parameter (LER=0, LIN=5, LOT=6)
	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
	common/lyrctl/lyrins
	logical lyrins
	if(.not.lyrins)then
		call modcpy(.false.)
		call insert(depth)
	endif
	call srclyr(depth,lmax,dph)
	return
	end