Lines Matching refs:lcsyst
30 lcsyst = lcblk(3,iblk)
38 ngauss = nint(lcsyst)
42 & shp(lcsyst,1:nshl,:),
43 & shgl(lcsyst,:,1:nshl,:),
59 lcsyst = lcblk(3,iblk)
67 ngauss = nint(lcsyst)
72 & shp(lcsyst,1:nshl,:),
73 & shgl(lcsyst,:,1:nshl,:),
130 if ( Qwt( lcsyst, intp ) .eq. zero ) cycle
205 if ( Qwt( lcsyst, intp ) .eq. zero ) cycle
351 WdetJ = Qwt(lcsyst,intp)/ tmp