Lines Matching refs:lcsyst
74 lcsyst = lcblk(3,iblk)
82 ngauss = nint(lcsyst)
90 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
91 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
134 lcsyst = lcblk(3,iblk)
143 ngauss = nint(lcsyst)
151 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
152 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
185 lcsyst = lcblkb(3,iblk)
194 if(lcsyst.eq.3) lcsyst=nenbl
195 ngaussb = nintb(lcsyst)
205 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
206 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
357 lcsyst = lcblk(3,iblk)
364 ngauss = nint(lcsyst)
372 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
373 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
415 lcsyst = lcblk(3,iblk)
424 ngauss = nint(lcsyst)
438 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
439 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
489 lcsyst = lcblkb(3,iblk)
498 if(lcsyst.eq.3) lcsyst=nenbl
499 ngaussb = nintb(lcsyst)
515 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
516 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
755 lcsyst = lcblk(3,iblk)
764 ngauss = nint(lcsyst)
771 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
772 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
814 lcsyst = lcblkb(3,iblk)
823 if(lcsyst.eq.3) lcsyst=nenbl
824 ngaussb = nintb(lcsyst)
833 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
834 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)