From fd8d85896aef57161609e7fd0fc9ac3e7699c007 Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Thu, 27 Jun 2013 16:41:00 +0000
Subject: [PATCH] error msg in case of unknown keyword was not properly trimmed
 --> 64kB of spaces...

---
 code/constitutive_dislotwin.f90     | 2 +-
 code/constitutive_j2.f90            | 2 +-
 code/constitutive_none.f90          | 2 +-
 code/constitutive_nonlocal.f90      | 2 +-
 code/constitutive_phenopowerlaw.f90 | 2 +-
 code/constitutive_titanmod.f90      | 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/code/constitutive_dislotwin.f90 b/code/constitutive_dislotwin.f90
index a14f2feb8..824cc6455 100644
--- a/code/constitutive_dislotwin.f90
+++ b/code/constitutive_dislotwin.f90
@@ -443,7 +443,7 @@ rewind(file)
          case ('qedgepersbsystem')
            constitutive_dislotwin_sbQedge(i) = IO_floatValue(line,positions,2_pInt)
          case default
-           call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_dislotwin_label//')')
+           call IO_error(210_pInt,ext_msg=trim(tag)//' ('//constitutive_dislotwin_label//')')
        end select
      endif
    endif
diff --git a/code/constitutive_j2.f90 b/code/constitutive_j2.f90
index dbb826935..f4c47d90f 100644
--- a/code/constitutive_j2.f90
+++ b/code/constitutive_j2.f90
@@ -263,7 +263,7 @@ subroutine constitutive_j2_init(myFile)
          case ('atol_resistance')
            constitutive_j2_aTolResistance(i)  = IO_floatValue(line,positions,2_pInt)
          case default
-           call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_j2_label//')')
+           call IO_error(210_pInt,ext_msg=trim(tag)//' ('//constitutive_j2_label//')')
        end select
      endif
    endif
diff --git a/code/constitutive_none.f90 b/code/constitutive_none.f90
index f1167ffa8..4820bea66 100644
--- a/code/constitutive_none.f90
+++ b/code/constitutive_none.f90
@@ -160,7 +160,7 @@ subroutine constitutive_none_init(myFile)
          case ('c66')
                 constitutive_none_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
          case default
-                call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_none_label//')')
+                call IO_error(210_pInt,ext_msg=trim(tag)//' ('//constitutive_none_label//')')
        end select
      endif
    endif
diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90
index 1f233a47d..dc6b4cb73 100644
--- a/code/constitutive_nonlocal.f90
+++ b/code/constitutive_nonlocal.f90
@@ -585,7 +585,7 @@ do while (trim(line) /= '#EOF#')
         case('probabilisticmultiplication','randomsources','randommultiplication','discretesources')
           probabilisticMultiplication(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
         case default
-          call IO_error(210_pInt,ext_msg=tag//' ('//CONSTITUTIVE_NONLOCAL_LABEL//')')
+          call IO_error(210_pInt,ext_msg=trim(tag)//' ('//CONSTITUTIVE_NONLOCAL_LABEL//')')
       end select
     endif
   endif
diff --git a/code/constitutive_phenopowerlaw.f90 b/code/constitutive_phenopowerlaw.f90
index 624e2cd9e..321b4eec2 100644
--- a/code/constitutive_phenopowerlaw.f90
+++ b/code/constitutive_phenopowerlaw.f90
@@ -369,7 +369,7 @@ subroutine constitutive_phenopowerlaw_init(myFile)
              constitutive_phenopowerlaw_nonSchmidCoeff(j,i) = IO_floatValue(line,positions,1_pInt+j)
            enddo
          case default
-           call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_phenopowerlaw_label//')')
+           call IO_error(210_pInt,ext_msg=trim(tag)//' ('//constitutive_phenopowerlaw_label//')')
        end select
      endif
    endif
diff --git a/code/constitutive_titanmod.f90 b/code/constitutive_titanmod.f90
index f5d1b18b3..05aba8e8b 100644
--- a/code/constitutive_titanmod.f90
+++ b/code/constitutive_titanmod.f90
@@ -622,7 +622,7 @@ do while (trim(line) /= '#EOF#')
             constitutive_titanmod_interactionTwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
           enddo
         case default
-          call IO_error(210_pInt,ext_msg=tag//' ('//constitutive_titanmod_label//')')
+          call IO_error(210_pInt,ext_msg=trim(tag)//' ('//constitutive_titanmod_label//')')
       end select
      endif
    endif