added check for unknown keywords again (in agreement with Philip ;-)

indeed 'constitution' and '/nonlocal/' are the only keywords which have to be ignored, since they are parsed elsewhere

code/IO.f90

@@ -1229,21 +1229,29 @@ endfunction
  case (205_pInt)
    msg = 'unknown lattice structure encountered'
 
+ case (210_pInt)
+   msg = 'unknown material parameter for j2 constitutive phase:'
  case (211_pInt)
    msg = 'material parameter for j2 constitutive phase out of bounds:'
  case (212_pInt)
    msg = 'unknown constitutive output for j2 constitution:'
 
+ case (220_pInt)
+   msg = 'unknown material parameter for phenopowerlaw constitutive phase:'
  case (221_pInt)
    msg = 'material parameter for phenopowerlaw constitutive phase out of bounds:'
  case (222_pInt)
    msg = 'unknown constitutive output for phenopowerlaw constitution:'
 
+ case (230_pInt)
+   msg = 'unknown material parameter for titanmod constitutive phase:'
  case (231_pInt)
    msg = 'material parameter for titanmod constitutive phase out of bounds:'
  case (232_pInt)
    msg = 'unknown constitutive output for titanmod constitution:'
 
+ case (240_pInt)
+   msg = 'unknown material parameter for dislotwin constitutive phase:'
  case (241_pInt)
    msg = 'material parameter for dislotwin constitutive phase out of bounds:'
  case (242_pInt)
@@ -1251,6 +1259,8 @@ endfunction
  case (243_pInt)
    msg = 'zero stacking fault energy'
 
+ case (250_pInt)
+   msg = 'unknown material parameter for nonlocal constitutive phase:'
  case (251_pInt)
    msg = 'material parameter for nonlocal constitutive phase out of bounds:'
  case (252_pInt)

code/constitutive_dislotwin.f90

@@ -296,6 +296,8 @@ do                                                       ! read thru sections of
      positions = IO_stringPos(line,maxNchunks)
      tag = IO_lc(IO_stringValue(line,positions,1))        ! extract key
      select case(tag)
+       case ('constitution')
+         cycle
        case ('(output)')
          output = output + 1_pInt
          constitutive_dislotwin_output(output,i) = IO_lc(IO_stringValue(line,positions,2_pInt))
@@ -394,6 +396,8 @@ do                                                       ! read thru sections of
               constitutive_dislotwin_sbResistance(i) = IO_floatValue(line,positions,2_pInt)
        case ('shearbandvelocity')
               constitutive_dislotwin_sbVelocity(i) = IO_floatValue(line,positions,2_pInt)
+       case default
+              call IO_error(240_pInt,ext_msg=tag)
      end select
    endif
 enddo

code/constitutive_j2.f90

@@ -151,6 +151,8 @@ subroutine constitutive_j2_init(file)
      positions = IO_stringPos(line,maxNchunks)
      tag = IO_lc(IO_stringValue(line,positions,1_pInt))                                                                            ! extract key
      select case(tag)
+       case ('constitution')
+         cycle
        case ('(output)')
          output = output + 1
          constitutive_j2_output(output,i) = IO_lc(IO_stringValue(line,positions,2))

code/constitutive_nonlocal.f90

@@ -440,6 +440,8 @@ do
         constitutive_nonlocal_rhoSglScatter(i) = IO_floatValue(line,positions,2_pInt)
       case('surfacetransmissivity')
         constitutive_nonlocal_surfaceTransmissivity(i) = IO_floatValue(line,positions,2_pInt)
+      case default
+        call IO_error(250_pInt,ext_msg=tag)
     end select
   endif
 enddo

code/constitutive_phenopowerlaw.f90

@@ -272,6 +272,8 @@ subroutine constitutive_phenopowerlaw_init(file)
      positions = IO_stringPos(line,maxNchunks)
      tag = IO_lc(IO_stringValue(line,positions,1_pInt))   ! extract key
      select case(tag)
+       case ('constitution')
+         cycle
        case ('(output)')
          output = output + 1_pInt
          constitutive_phenopowerlaw_output(output,i) = IO_lc(IO_stringValue(line,positions,2_pInt))
@@ -346,6 +348,8 @@ subroutine constitutive_phenopowerlaw_init(file)
        case ('interaction_twintwin')
               forall (j = 1_pInt:lattice_maxNinteraction) &
                 constitutive_phenopowerlaw_interaction_twintwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
+       case default
+              call IO_error(220_pInt,ext_msg=tag)
      end select
    endif
  enddo

code/constitutive_titanmod.f90

@@ -398,6 +398,8 @@ enddo
      positions = IO_stringPos(line,maxNchunks)
      tag = IO_lc(IO_stringValue(line,positions,1_pInt))   ! extract key
      select case(tag)
+       case ('constitution')
+         cycle
        case ('(output)')
          output = output + 1_pInt
          constitutive_titanmod_output(output,i) = IO_lc(IO_stringValue(line,positions,2_pInt))
@@ -584,6 +586,8 @@ enddo
               forall (j = 1_pInt:lattice_maxNinteraction) &
                 constitutive_titanmod_interactionTwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
                 write(6,*) tag
+       case default
+              call IO_error(230_pInt,ext_msg=tag)
      end select
    endif
 enddo