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

formatting

This commit is contained in:
Martin Diehl 2014-02-28 13:05:11 +00:00
parent b0f191c88c
commit 92bf1565fc
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
code/constitutive_phenopowerlaw.f90
View File

@ -414,27 +414,27 @@ subroutine constitutive_phenopowerlaw_init(fileUnit)
constitutive_phenopowerlaw_totalNtwin(instance) = sum(constitutive_phenopowerlaw_Ntwin(:,instance)) ! how many twin systems altogether constitutive_phenopowerlaw_totalNtwin(instance) = sum(constitutive_phenopowerlaw_Ntwin(:,instance)) ! how many twin systems altogether
if (any(constitutive_phenopowerlaw_tau0_slip(:,instance) < 0.0_pReal .and. & if (any(constitutive_phenopowerlaw_tau0_slip(:,instance) < 0.0_pReal .and. &
constitutive_phenopowerlaw_Nslip(:,instance) > 0)) call IO_error(211_pInt,el=instance,ext_msg='tau0_slip (' & constitutive_phenopowerlaw_Nslip(:,instance) > 0)) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='tau0_slip ('//PLASTICITY_PHENOPOWERLAW_label//')')
if (constitutive_phenopowerlaw_gdot0_slip(instance) <= 0.0_pReal) call IO_error(211_pInt,el=instance,ext_msg='gdot0_slip (' & if (constitutive_phenopowerlaw_gdot0_slip(instance) <= 0.0_pReal) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='gdot0_slip ('//PLASTICITY_PHENOPOWERLAW_label//')')
if (constitutive_phenopowerlaw_n_slip(instance) <= 0.0_pReal) call IO_error(211_pInt,el=instance,ext_msg='n_slip (' & if (constitutive_phenopowerlaw_n_slip(instance) <= 0.0_pReal) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='n_slip ('//PLASTICITY_PHENOPOWERLAW_label//')')
if (any(constitutive_phenopowerlaw_tausat_slip(:,instance) <= 0.0_pReal .and. & if (any(constitutive_phenopowerlaw_tausat_slip(:,instance) <= 0.0_pReal .and. &
constitutive_phenopowerlaw_Nslip(:,instance) > 0)) call IO_error(211_pInt,el=instance,ext_msg='tausat_slip (' & constitutive_phenopowerlaw_Nslip(:,instance) > 0)) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='tausat_slip ('//PLASTICITY_PHENOPOWERLAW_label//')')
if (any(constitutive_phenopowerlaw_a_slip(instance) == 0.0_pReal .and. & if (any(constitutive_phenopowerlaw_a_slip(instance) == 0.0_pReal .and. &
constitutive_phenopowerlaw_Nslip(:,instance) > 0)) call IO_error(211_pInt,el=instance,ext_msg='a_slip (' & constitutive_phenopowerlaw_Nslip(:,instance) > 0)) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='a_slip ('//PLASTICITY_PHENOPOWERLAW_label//')')
if (any(constitutive_phenopowerlaw_tau0_twin(:,instance) < 0.0_pReal .and. & if (any(constitutive_phenopowerlaw_tau0_twin(:,instance) < 0.0_pReal .and. &
constitutive_phenopowerlaw_Ntwin(:,instance) > 0)) call IO_error(211_pInt,el=instance,ext_msg='tau0_twin (' & constitutive_phenopowerlaw_Ntwin(:,instance) > 0)) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='tau0_twin ('//PLASTICITY_PHENOPOWERLAW_label//')')
if ( constitutive_phenopowerlaw_gdot0_twin(instance) <= 0.0_pReal .and. & if ( constitutive_phenopowerlaw_gdot0_twin(instance) <= 0.0_pReal .and. &
any(constitutive_phenopowerlaw_Ntwin(:,instance) > 0)) call IO_error(211_pInt,el=instance,ext_msg='gdot0_twin (' & any(constitutive_phenopowerlaw_Ntwin(:,instance) > 0)) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='gdot0_twin ('//PLASTICITY_PHENOPOWERLAW_label//')')
if ( constitutive_phenopowerlaw_n_twin(instance) <= 0.0_pReal .and. & if ( constitutive_phenopowerlaw_n_twin(instance) <= 0.0_pReal .and. &
any(constitutive_phenopowerlaw_Ntwin(:,instance) > 0)) call IO_error(211_pInt,el=instance,ext_msg='n_twin (' & any(constitutive_phenopowerlaw_Ntwin(:,instance) > 0)) &
//PLASTICITY_PHENOPOWERLAW_label//')') call IO_error(211_pInt,el=instance,ext_msg='n_twin ('//PLASTICITY_PHENOPOWERLAW_label//')')
if (constitutive_phenopowerlaw_aTolResistance(instance) <= 0.0_pReal) & if (constitutive_phenopowerlaw_aTolResistance(instance) <= 0.0_pReal) &
constitutive_phenopowerlaw_aTolResistance(instance) = 1.0_pReal ! default absolute tolerance 1 Pa constitutive_phenopowerlaw_aTolResistance(instance) = 1.0_pReal ! default absolute tolerance 1 Pa
if (constitutive_phenopowerlaw_aTolShear(instance) <= 0.0_pReal) & if (constitutive_phenopowerlaw_aTolShear(instance) <= 0.0_pReal) &