Lines Matching refs:lcsyst
87 lcsyst = lcblk(3,iblk)
95 ngauss = nint(lcsyst)
103 & shp(lcsyst,1:nshl,:),
104 & shgl(lcsyst,:,1:nshl,:),
109 & shp(lcsyst,1:nshl,:),
110 & shgl(lcsyst,:,1:nshl,:),
145 lcsyst = lcblk(3,iblk)
154 ngauss = nint(lcsyst)
166 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
167 tmpshgl(:,1:nshl,:) = shgl(lcsyst,:,1:nshl,:)
256 lcsyst = lcblkb(3,iblk)
267 if(lcsyst.eq.3) lcsyst=nenbl
269 if(lcsyst.eq.3 .or. lcsyst.eq.4) then
270 ngaussb = nintb(lcsyst)
272 ngaussb = nintb(lcsyst)
287 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
288 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
425 lcsyst = lcblk(3,iblk)
432 ngauss = nint(lcsyst)
438 & shp(lcsyst,1:nshl,:),
439 & shgl(lcsyst,:,1:nshl,:),
470 lcsyst = lcblk(3,iblk)
476 ngauss = nint(lcsyst)
486 & shp(lcsyst,1:nshl,:),
487 & shgl(lcsyst,:,1:nshl,:),
533 lcsyst = lcblkb(3,iblk)
541 if(lcsyst.eq.3) lcsyst=nenbl
542 if(lcsyst.eq.3 .or. lcsyst.eq.4) then
543 ngaussb = nintb(lcsyst)
545 ngaussb = nintb(lcsyst)
559 & shpb(lcsyst,1:nshl,:),
560 & shglb(lcsyst,:,1:nshl,:),