Initial commit

change 1e-2 to 'ftol' in CalSurfG.f90, which may cause problem with small study region (~2 km)

srcsparsity/lsmrDataModule.f90

@@ -0,0 +1,24 @@
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! File lsmrDataModule.f90
+!
+! Defines real(dp) and a few constants for use in other modules.
+!
+! 24 Oct 2007: Allows floating-point precision dp to be defined
+!              in exactly one place (here).  Note that we need
+!                 use lsmrDataModule
+!              at the beginning of modules AND inside interfaces.
+!              zero and one are not currently used by LSMR,
+!              but this shows how they should be declared
+!              by a user routine that does need them.
+! 16 Jul 2010: LSMR version derived from LSQR equivalent.
+!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+module lsmrDataModule
+
+  implicit none
+
+  intrinsic                   ::      selected_real_kind
+  integer,  parameter, public :: dp = selected_real_kind(4)
+  real(dp), parameter, public :: zero = 0.0_dp, one = 1.0_dp
+
+end module lsmrDataModule