Lines Matching refs:rtmp
24 dimension rtmp(nshg,2), nrsmax(1), ilwork(nlwork)
95 rtmp = zero
97 rtmp(:,1) = rtmp(:,1) + res(:,i)**2
98 rtmp(:,2) = rtmp(:,2) + b(:,i)**2
101 eachproc(1)=sum(rtmp(:,1))
102 eachproc(2)=sum(rtmp(:,2))
175 dimension rtmp(nshg), nrsmax(1), ilwork(nlwork)
186 rtmp = zero
187 rtmp = rtmp + rest**2
189 call sumgat (rtmp, 1, resnrm, ilwork)
191 resmaxl = maxval(rtmp)
207 nrsmax = maxloc(rtmp)
400 dimension rtmp(nshg), nrsmax(1), ilwork(nlwork)