        program test_arr_mult

        real*4 :: a(5) = (/2.,4.,6.,8.,10./)
        real*4 :: b(5) = (/3.,3.,3.,3.,3./)
        real*4 :: c(5)

        print *, a*b

        end

