18 lines
281 B
Fortran
18 lines
281 B
Fortran
|
|
|||
|
|
!<21><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
SUBROUTINE conv(m,x,n,y,z)
|
|||
|
|
implicit none
|
|||
|
|
|
|||
|
|
integer :: m,n
|
|||
|
|
real*8 :: x(m),y(n),z(m+n-1)
|
|||
|
|
|
|||
|
|
integer :: i,j
|
|||
|
|
|
|||
|
|
z = 0
|
|||
|
|
do i=1,m
|
|||
|
|
do j=1,n
|
|||
|
|
z(i+j-1) = z(i+j-1)+x(i)*y(j)
|
|||
|
|
end do
|
|||
|
|
end do
|
|||
|
|
|
|||
|
|
end subroutine
|