Searched refs:scal (Results 1 – 2 of 2) sorted by relevance
110 scal = xnrml*fourth(1) + ynrml*fourth(2) + znrml*fourth(3)112 if (scal .lt. 0.0) then
1272 subroutine integrScalar(scalInt,scal,srfIdList,numSrfs) argument1280 real*8 scal(nshg), scalInt(0:MAXSURF), scalIntProc(0:MAXSURF) local1290 & + NASC(i)*scal(i)