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

accidently commited constitutive.f90 wasn't working, fixed now

This commit is contained in:
Martin Diehl 2013-04-23 07:37:14 +00:00
parent d5e4a354e6
commit 5837b25e27
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/constitutive.f90
View File

@ -187,7 +187,7 @@ subroutine constitutive_init
case default case default
knownPlasticity = .false. knownPlasticity = .false.
end select end select
write(fileunit,'(\,a,\)') '['//trim(phase_name(p))//']' write(fileunit,'(/,a,/)') '['//trim(phase_name(p))//']'
if (knownPlasticity) then if (knownPlasticity) then
write(fileunit,'(a)') '(plasticity)'//char(9)//trim(phase_plasticity(p)) write(fileunit,'(a)') '(plasticity)'//char(9)//trim(phase_plasticity(p))
do e = 1_pInt,phase_Noutput(p) do e = 1_pInt,phase_Noutput(p)