S=0.0 DO 10 I=1,N S=S+A(I) 10 CONTINUE
S=0.0 IF (N.LE.4) THEN S=A(1) DO 10 I=2,N S=S+A(I) 10 CONTINUE ELSE M=MOD(N,4) S=A(1)+A(2)+A(3)+A(4) DO 20 I=5,N,4 S=S+A(I)+A(I+1)+A(I+2)+A(I+3) 20 CONTINUE DO 30 I=N-M+1,N S=S+A(I) 30 CONTINUE ENDIF
DO 10 I=1,M S(I)=0.0 10 CONTINUE DO 20 J=1,N T(J)=0.0 20 CONTINUE U=0.0 DO 30 I=1,M DO 40 J=1,N S(I)=S(I)+A(I,J) T(J)=T(J)+A(I,J) 40 CONTINUE U=U+S(I) 50 CONTINUE