From 846e6928738c88f02e8f48fe79ecb4bd322bdf30 Mon Sep 17 00:00:00 2001
From: Philip Eisenlohr <eisenlohr@egr.msu.edu>
Date: Sat, 25 Feb 2017 15:42:11 -0500
Subject: [PATCH] slightly more specific why elastic diagonal == 0

---
 code/lattice.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/lattice.f90 b/code/lattice.f90
index 332647d9e..91a97c231 100644
--- a/code/lattice.f90
+++ b/code/lattice.f90
@@ -1716,7 +1716,7 @@ subroutine lattice_initializeStructure(myPhase,CoverA,CoverA_trans,a_fcc,a_bcc)
          lattice_trans_C66(1:6,1:6,myPhase) = math_Mandel3333to66(lattice_trans_C3333(1:3,1:3,1:3,1:3,myPhase))
          do i = 1_pInt, 6_pInt
            if (abs(lattice_trans_C66(i,i,myPhase))<tol_math_check) &
-           call IO_error(135_pInt,el=i,ip=myPhase,ext_msg='matrix diagonal "el"ement of phase "ip"')
+           call IO_error(135_pInt,el=i,ip=myPhase,ext_msg='matrix diagonal "el"ement of phase "ip" in fcc-->bcc transformation')
          enddo
        case (LATTICE_hex_ID)
          c11bar = (lattice_C66(1,1,myPhase) + lattice_C66(1,2,myPhase) + 2.0_pReal*lattice_C66(4,4,myPhase))/2.0_pReal
@@ -1749,7 +1749,7 @@ subroutine lattice_initializeStructure(myPhase,CoverA,CoverA_trans,a_fcc,a_bcc)
          lattice_trans_C66(1:6,1:6,myPhase) = math_Mandel3333to66(lattice_trans_C3333(1:3,1:3,1:3,1:3,myPhase))
          do i = 1_pInt, 6_pInt
            if (abs(lattice_trans_C66(i,i,myPhase))<tol_math_check) &
-           call IO_error(135_pInt,el=i,ip=myPhase,ext_msg='matrix diagonal "el"ement of phase "ip"')
+           call IO_error(135_pInt,el=i,ip=myPhase,ext_msg='matrix diagonal "el"ement of phase "ip" in fcc-->hex transformation')
          enddo
      end select
  end select