program produkt_matrike_s_skalarjem
integer e,c(3,3),d(3,3),m,n
print*,'vnesi matriko'
read*,((c(m,n),n=1,3),m=1,3)
print*,'vnesi skalar'
read*,e
call s_mat(e,c,d)
print*,((d(m,n),n=1,3),m=1,3)
end

subroutine s_mat(s,a,b)
real s,a(3,3),b(3,3)
integer i,j
do i=1,3
  do j=1,3
   b(i,j)=s*a(i,j)
  enddo
enddo 
return
end