Lines Matching refs:rls
3 real*8, allocatable :: rls(:,:) variable
24 allocate ( rls(nshg,6) )
174 rls(:,1) = hfres(:,6) - hfres(:,1)*hfres(:,1)/rho(:)
175 rls(:,2) = hfres(:,7) - hfres(:,2)*hfres(:,2)/rho(:)
176 rls(:,3) = hfres(:,8) - hfres(:,3)*hfres(:,3)/rho(:)
178 tracerls=(rls(:,1)+rls(:,2)+rls(:,3))/three
180 rls(:,1) = rls(:,1) - tracerls
181 rls(:,2) = rls(:,2) - tracerls
182 rls(:,3) = rls(:,3) - tracerls
184 rls(:,4) = hfres(:,9) - hfres(:,1)*hfres(:,2)/rho(:)
185 rls(:,5) = hfres(:,10) - hfres(:,1)*hfres(:,3)/rho(:)
186 rls(:,6) = hfres(:,11) - hfres(:,2)*hfres(:,3)/rho(:)
1082 call local (rls, rlsl, ien, 6, 'gather ')