Lines Matching refs:lcsyst
73 lcsyst = lcblk(3,iblk)
81 ngauss = nint(lcsyst)
89 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
90 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
132 lcsyst = lcblk(3,iblk)
141 ngauss = nint(lcsyst)
148 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
149 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
178 lcsyst = lcblkb(3,iblk)
187 if(lcsyst.eq.3) lcsyst=nenbl
188 ngaussb = nintb(lcsyst)
197 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
198 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)