プログラム例5

      S=0.0
        DO 10 I=1,N
          S=S+X(I)*Y(I)
   10   CONTINUE
      END

プログラム例6

        DO 10 I=1,M
            DO 20 J=1,N
              S=0.0
                DO 30 K=1,P
                  S=S+A(I,K)*B(K,J)
   30           CONTINUE
              C(I,J)=S
   20       CONTINUE
   10    CONTINUE
      END

プログラム例7

        DO 10 I=1,M
          S=0.0
            DO 20 J=1,N
              S=S+A(I,J)*X(J)
   20       CONTINUE
          Y(I)=S
   10   CONTINUE
      END


<戻る>