mirror of
https://github.com/HongjianFang/DSurfTomo.git
synced 2025-05-08 00:01:14 +08:00
22 lines
295 B
Fortran
22 lines
295 B
Fortran
|
subroutine merge1(vec,n)
|
||
|
|
implicit none
|
||
|
|
integer n
|
||
|
|
real vec(n)
|
||
|
|
|
||
|
|
integer half,start,endt
|
||
|
|
integer i
|
||
|
|
real tmp
|
||
|
|
half=n/2
|
||
|
|
start=half
|
||
|
|
endt=half+1
|
||
|
|
do while(start.gt.1)
|
||
|
|
do i=start,endt-1,2
|
||
|
|
tmp=vec(i)
|
||
|
|
vec(i)=vec(i+1)
|
||
|
|
vec(i+1)=tmp
|
||
|
|
enddo
|
||
|
|
start=start-1
|
||
|
|
endt=endt+1
|
||
|
|
enddo
|
||
|
|
end subroutine
|