[cig-commits] [commit] devel: fixed one line typo in smooth_sem utility (5dc37e9)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/56306b69ee88ac21ea8c933718e566f5b41b934d...5dc37e9c912c37ef39db0ffdda97c286004fc7ee

>---------------------------------------------------------------

commit 5dc37e9c912c37ef39db0ffdda97c286004fc7ee
Author: rmodrak <rmodrak at princeton.edu>
Date:   Thu Nov 13 11:37:31 2014 -0500

    fixed one line typo in smooth_sem utility


>---------------------------------------------------------------

5dc37e9c912c37ef39db0ffdda97c286004fc7ee
 src/tomography/smooth_sem.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tomography/smooth_sem.f90 b/src/tomography/smooth_sem.f90
index f2ac066..ea02fc7 100644
--- a/src/tomography/smooth_sem.f90
+++ b/src/tomography/smooth_sem.f90
@@ -525,7 +525,7 @@ program smooth_sem_globe
               !  print*,'tk: ',tk(i,j,k,ispec),'bk:',bk(i,j,k,ispec)
               !  print*,'sum exp_val: ',sum(exp_val(:,:,:)),'sum factor:',sum(factor(:,:,:))
               !  print*,'sum kernel:',sum(kernel(:,:,:,ispec2))
-              !  call exit_MPI('Error NaN')
+              !  call exit_mpi(myrank, 'Error NaN')
               !endif
 
             enddo
@@ -567,7 +567,7 @@ program smooth_sem_globe
             print*,'rank:',myrank
             print*,'i,j,k,ispec:',i,j,k,ispec
             print*,'tk: ',tk(i,j,k,ispec),'bk:',bk(i,j,k,ispec)
-            call exit_MPI('Error kernel value is NaN')
+            call exit_mpi(myrank, 'Error kernel value is NaN')
           endif
         enddo
       enddo