223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

error msg in case of unknown keyword was not properly trimmed --> 64kB of spaces...

This commit is contained in:
Philip Eisenlohr 2013-06-27 16:41:00 +00:00
parent 034a6bc926
commit fd8d85896a
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/constitutive_dislotwin.f90
View File

@ -443,7 +443,7 @@ rewind(file)
case ('qedgepersbsystem') case ('qedgepersbsystem')
constitutive_dislotwin_sbQedge(i) = IO_floatValue(line,positions,2_pInt) constitutive_dislotwin_sbQedge(i) = IO_floatValue(line,positions,2_pInt)
case default 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 end select
endif endif
endif endif

2
code/constitutive_j2.f90
View File

@ -263,7 +263,7 @@ subroutine constitutive_j2_init(myFile)
case ('atol_resistance') case ('atol_resistance')
constitutive_j2_aTolResistance(i) = IO_floatValue(line,positions,2_pInt) constitutive_j2_aTolResistance(i) = IO_floatValue(line,positions,2_pInt)
case default 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 end select
endif endif
endif endif

2
code/constitutive_none.f90
View File

@ -160,7 +160,7 @@ subroutine constitutive_none_init(myFile)
case ('c66') case ('c66')
constitutive_none_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt) constitutive_none_Cslip_66(6,6,i) = IO_floatValue(line,positions,2_pInt)
case default 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 end select
endif endif
endif endif

2
code/constitutive_nonlocal.f90
View File

@ -585,7 +585,7 @@ do while (trim(line) /= '#EOF#')
case('probabilisticmultiplication','randomsources','randommultiplication','discretesources') case('probabilisticmultiplication','randomsources','randommultiplication','discretesources')
probabilisticMultiplication(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal probabilisticMultiplication(i) = IO_floatValue(line,positions,2_pInt) > 0.0_pReal
case default 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 end select
endif endif
endif endif

2
code/constitutive_phenopowerlaw.f90
View File

@ -369,7 +369,7 @@ subroutine constitutive_phenopowerlaw_init(myFile)
constitutive_phenopowerlaw_nonSchmidCoeff(j,i) = IO_floatValue(line,positions,1_pInt+j) constitutive_phenopowerlaw_nonSchmidCoeff(j,i) = IO_floatValue(line,positions,1_pInt+j)
enddo enddo
case default 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 end select
endif endif
endif endif

2
code/constitutive_titanmod.f90
View File

@ -622,7 +622,7 @@ do while (trim(line) /= '#EOF#')
constitutive_titanmod_interactionTwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j) constitutive_titanmod_interactionTwinTwin(j,i) = IO_floatValue(line,positions,1_pInt+j)
enddo enddo
case default 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 end select
endif endif
endif endif