Initial commit

change 1e-2 to 'ftol' in CalSurfG.f90, which may cause problem with small study region (~2 km)
2025-12-20 02:21:06 +08:00 · 2016-03-29 15:48:02 +02:00
parent de0abdf3f1
commit fb7b81711f
57 changed files with 165030 additions and 152 deletions
--- a/srcsparsity/merge1.f90
+++ b/srcsparsity/merge1.f90
@@ -0,0 +1,21 @@
+	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