real,dimension(2,3,4) :: A, B, C
integer j, k, m

do j = 1, 2
  do k = 1, 3
     do m = 1, 4

         A(j,k,m) = B(j,k,m) * C(j,k,m)
     
     enddo
  enddo
enddo