プログラム例1

      S=0.0
        DO 10 I=1,N
          S=S+A(I)
   10   CONTINUE

プログラム例2

      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

プログラム例3

        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


<戻る>