📄 srclay.f
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -