B(K) = c(1)*c(1)*A(1,1,K) + c(1)*c(2)*A(1,2,K) + c(1)*c(3)*A(1,3,K) + &
       c(2)*c(1)*A(2,1,K) + c(2)*c(2)*A(2,2,K) + c(2)*c(3)*A(2,3,K) + &
       c(3)*c(1)*A(3,1,K) + c(3)*c(2)*A(3,2,K) + c(3)*c(3)*A(3,3,K)

DO K = 1,100
   J = 1.d0
   DO WHILE (J .LE. 3)
      I = 1.d0
      DO WHILE (I .LE. 3)
         A(I,J,K) = c(I)*c(J)*A(I,J,K) ! + ???
         I = I + 1.d0
      END DO
   END DO
END DO

DO K = 1,100
B(K) = 0
   DO J = 1,3
      DO I = 1,3
         B(K) = B(K) + c(I)*c(J)*A(I,J,K)
      END DO
   END DO
END DO