! 5.4.f90
! 2024-10-26
! $Id: 5.4.f90 1.1 2024/11/02 11:54:01 s Exp $

integer m,n
real(8) c(6,10)
real(8) cx(6),x(10)

! input
m=6
n=10
c(1,1:n)=[ 10,   7,    8,    6,   7,   5,  10,   8,    7,   100]
c(2,1:n)=[ 10,   7,    8,    6,   7,   5,  10,   8,  107,     0]
c(3,1:n)=[ 10,   7,    8,    6,   7,   5, 110, 108,    0,     0]
c(4,1:n)=[ 10,   7,    8,    6,   7, 105,   0,   0,    0,     0]
c(5,1:n)=[ 10,   7,    8,  106, 107,   0,   0,   0,    0,     0]
c(6,1:n)=[110, 107,  108,    0,   0,   0,   0,   0,    0,     0]
x       =[ 0., 11.2,  0., 6.81,   0., 0.,  0., 6.3, 0.28,    0.]

! calculation
cx = matmul(c,  x)

! output
print *,'5.4.f90'
print *,'input'
print *,'c '
do i=1,m
  print '(10i6)', (int(c(i,j)), j=1,n)
end do 
print *,'x'
print '(10f6.2)', (x(i), i=1,n)
print *
print *,'output'
print *,'cx'
print '(6f8.2)', (cx(i), i=1,m)
end
! end of file