fix bug

fix bug about depm on a certain OS, including MAC OSx, seems it doesn't affect Linux OS.
Also change the chi squre equation to sqrt(x^2/n)

srcsparsity/CalSurfG.f90

@@ -67,6 +67,7 @@
     	  rhom(kk) = rhoz(kk)
     	enddo
     	!!half space
+    	depm(mmax)=depz(mmax)
     	vsm(mmax) = vsz(mmax)
     	vpm(mmax) = vpz(mmax)
     	rhom(mmax) = rhoz(mmax) 

srcsparsity/main.f90

@@ -630,12 +630,12 @@
        write(*,'(a,f7.3)'),'weight is:',weight
        write(*,'(a,f8.1,a,f8.2,a,f8.3)'),'mean,std_devs and chi sqrue of &
            residual: ',mean*1000,'ms ',1000*std_devs,'ms ',&
-           dnrm2(dall,cbst,1)**2/dall
+           dnrm2(dall,cbst,1)**2/sqrt(dall)
        write(66,'(i2,a)'),iter,'th iteration...'
        write(66,'(a,f7.3)'),'weight is:',weight
        write(66,'(a,f8.1,a,f8.2,a,f8.3)'),'mean,std_devs and chi sqrue of &
            residual: ',mean*1000,'ms ',1000*std_devs,'ms ',&
-           dnrm2(dall,cbst,1)**2/dall
+           dnrm2(dall,cbst,1)**2/sqrt(dall)
 
         if (domain == 0) then
     	call invwavetrans(nx-2,ny-2,nz-1,dv,maxlevel,maxleveld,&