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

that was tooo quick, now it works hopefully

This commit is contained in:
Franz Roters 2009-08-13 13:32:17 +00:00
parent f400cdac5b
commit 387195e036
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/constitutive_phenopowerlaw.f90
View File

@ -314,10 +314,10 @@ subroutine constitutive_phenopowerlaw_init(file)
if (any(constitutive_phenopowerlaw_tau0_twin(:,i) < 0.0_pReal .and. & if (any(constitutive_phenopowerlaw_tau0_twin(:,i) < 0.0_pReal .and. &
constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(210) constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(210)
if (constitutive_phenopowerlaw_gdot0_twin(i) <= 0.0_pReal) .and. & if ( constitutive_phenopowerlaw_gdot0_twin(i) <= 0.0_pReal .and. &
constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(211) any(constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(211)
if (constitutive_phenopowerlaw_n_twin(i) <= 0.0_pReal) .and. & if ( constitutive_phenopowerlaw_n_twin(i) <= 0.0_pReal .and. &
constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(212) any(constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(212)
enddo enddo