mirror of
https://github.com/HongjianFang/DSurfTomo.git
synced 2025-05-07 15:41:14 +08:00
fb7b81711f
change 1e-2 to 'ftol' in CalSurfG.f90, which may cause problem with small study region (~2 km)
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
|