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)

srcsmooth/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) 

srcsmooth/main.f90

@@ -495,12 +495,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)
 
         write(*,'(a,2f7.4)'),'min and max velocity variation ',&
             minval(dv),maxval(dv)