Searched refs:icomp (Results 1 – 1 of 1) sorted by relevance
209 subroutine rstaticSclr (res, y, Dy, icomp) argument233 if ( (icomp .eq. 6).and. (iRANS.eq.-1) ) then239 call sumgat( abs( y(:,icomp)),1,rdy2)