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

not needed 

error occurs in <phase ... init>
This commit is contained in:
Martin Diehl 2022-05-27 00:24:40 +02:00
parent 724c4fcf5d
commit 7a23699aa4
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/phase_mechanical_plastic_dislotungsten.f90
View File

@ -252,7 +252,7 @@ module function plastic_dislotungsten_init() result(myPlasticity)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'(dislotungsten)')
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg))
end do

2
src/phase_mechanical_plastic_dislotwin.f90
View File

@ -430,7 +430,7 @@ module function plastic_dislotwin_init() result(myPlasticity)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'(dislotwin)')
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg))
end do

2
src/phase_mechanical_plastic_isotropic.f90
View File

@ -135,7 +135,7 @@ module function plastic_isotropic_init() result(myPlasticity)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'(isotropic)')
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg))
end do

2
src/phase_mechanical_plastic_kinehardening.f90
View File

@ -224,7 +224,7 @@ module function plastic_kinehardening_init() result(myPlasticity)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'(kinehardening)')
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg))
end do

2
src/phase_mechanical_plastic_nonlocal.f90
View File

@ -504,7 +504,7 @@ module function plastic_nonlocal_init() result(myPlasticity)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'(nonlocal)')
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg))
end do

2
src/phase_mechanical_plastic_phenopowerlaw.f90
View File

@ -269,7 +269,7 @@ module function plastic_phenopowerlaw_init() result(myPlasticity)
!--------------------------------------------------------------------------------------------------
! exit if any parameter is out of range
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg)//'(phenopowerlaw)')
if (extmsg /= '') call IO_error(211,ext_msg=trim(extmsg))
end do