14 lines
206 B
Fortran
14 lines
206 B
Fortran
|
|
|||
|
|
!<21>ۻ<EFBFBD><DBBB><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
SUBROUTINE cumsum(n,A,B)
|
|||
|
|
implicit none
|
|||
|
|
|
|||
|
|
integer :: n,i
|
|||
|
|
integer :: A(n),B(n)
|
|||
|
|
|
|||
|
|
B(1) = A(1)
|
|||
|
|
do i=2,n
|
|||
|
|
B(i) = B(i-1)+A(i)
|
|||
|
|
end do
|
|||
|
|
|
|||
|
|
end subroutine
|