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)
25 lines
328 B
Fortran
25 lines
328 B
Fortran
subroutine split(vec,n)
|
|
implicit none
|
|
integer n
|
|
real vec(n)
|
|
|
|
!c local
|
|
integer start,endt,i,j
|
|
real tmp
|
|
start=2
|
|
!if(mod(n,2).ne.0) then
|
|
! endt=n-1
|
|
!else
|
|
endt=n
|
|
!endif
|
|
do while (start.lt.endt)
|
|
do i=start,endt-1,2
|
|
tmp=vec(i)
|
|
vec(i)=vec(i+1)
|
|
vec(i+1)=tmp
|
|
end do
|
|
start=start+1
|
|
endt=endt-1
|
|
enddo
|
|
end subroutine
|