Lines Matching refs:lcsyst
88 lcsyst = lcblk(3,iblk)
96 ngauss = nint(lcsyst)
104 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
105 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
149 lcsyst = lcblk(3,iblk)
158 ngauss = nint(lcsyst)
172 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
173 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
221 lcsyst = lcblkb(3,iblk)
230 if(lcsyst.eq.3) lcsyst=nenbl
231 ngaussb = nintb(lcsyst)
241 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
242 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
377 lcsyst = lcblk(3,iblk)
385 ngauss = nint(lcsyst)
396 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
397 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
446 lcsyst = lcblkb(3,iblk)
455 if(lcsyst.eq.3) lcsyst=nenbl
456 ngaussb = nintb(lcsyst)
465 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
466 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)