Lines Matching refs:lcsyst
70 lcsyst = lcblkb(3,iblk)
112 lcsyst = lcblk(3,iblk)
114 ngauss = nint(lcsyst)
142 & shp(lcsyst,1:nshl,:),
143 & shgl(lcsyst,:,1:nshl,:),
166 lcsyst = lcblkb(3,iblk)
173 if(lcsyst.eq.3) lcsyst=nenbl
175 if(lcsyst.eq.3 .or. lcsyst.eq.4) then
176 ngaussb = nintb(lcsyst)
178 ngaussb = nintb(lcsyst)
188 & shpb(lcsyst,1:nshl,:),
189 & shglb(lcsyst,:,1:nshl,:),