[cig-commits] r22830 - seismo/3D/SPECFEM3D/trunk/src/shared

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-09-20 18:48:06 -0700 (Fri, 20 Sep 2013)
New Revision: 22830

Modified:
   seismo/3D/SPECFEM3D/trunk/src/shared/safe_alloc_mod.f90
Log:
fixed a typo


Modified: seismo/3D/SPECFEM3D/trunk/src/shared/safe_alloc_mod.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/safe_alloc_mod.f90	2013-09-20 23:43:09 UTC (rev 22829)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/safe_alloc_mod.f90	2013-09-21 01:48:06 UTC (rev 22830)
@@ -124,7 +124,7 @@
                         "': Allocation error. ', A)") myrank, usr_msg
     else
       write(error_unit, "('Process ', i6.6, ': Allocation error. " // &
-                        " No user message specfified.')") myrank
+                        " No user message specified.')") myrank
     endif
     !call exit(ier)
     call MPI_Abort(MPI_COMM_WORLD, ier, mpi_er)
@@ -149,7 +149,7 @@
                         "': Deallocation error. ', A)") myrank, usr_msg
     else
       write(error_unit, "('Process ', i6.6, ': Deallocation error. " // &
-                        " No user message specfified.')") myrank
+                        " No user message specified.')") myrank
     endif
     !call exit(ier)
     call MPI_Abort(MPI_COMM_WORLD, ier, mpi_er)