Lines Matching refs:n
101 do n = 1, nenl ! when changed to nshl solution degraded ipord 10
102 flhsl(:,n,1) = flhsl(:,n,1) + WdetJb * shape(:,n)
105 fnrml(:,n,1) = fnrml(:,n,1) + WdetJb * bnorm(:,1)
106 & * shape(:,n)
107 fnrml(:,n,2) = fnrml(:,n,2) + WdetJb * bnorm(:,2)
108 & * shape(:,n)
109 fnrml(:,n,3) = fnrml(:,n,3) + WdetJb * bnorm(:,3)
110 & * shape(:,n)
128 do n = 1, nshl
129 temp = temp + flhsl(:,n,1)
132 do n = 1, nshl
133 flhsl(:,n,1) = flhsl(:,n,1) * fmstot / temp