14 lines
206 B
Fortran
14 lines
206 B
Fortran
|
|
!累积求和
|
|
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 |