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

circumventing bug in Gfortran, tests use correct label (a_slip)

This commit is contained in:
Martin Diehl 2018-06-22 18:14:14 +02:00
parent 363c083886
commit 74aec7bb71
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRIVATE

@ -1 +1 @@
Subproject commit 89246b5ee30a850a52df020c4770b685568ccbc2
Subproject commit 99433c5cadc8d568b94282834ce80ffc960fbed8

8
src/plastic_phenopowerlaw.f90
View File

@ -157,7 +157,7 @@ subroutine plastic_phenopowerlaw_init
character(len=512) :: &
extmsg = ''
character(len=64), dimension(:), allocatable :: outputs
character(len=65536), dimension(:), allocatable :: outputs
write(6,'(/,a)') ' <<<+- constitutive_'//PLASTICITY_PHENOPOWERLAW_label//' init -+>>>'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
@ -228,7 +228,13 @@ subroutine plastic_phenopowerlaw_init
prm%aTolShear = phaseConfig(phase)%getFloat('atol_shear',defaultVal=1.0e-6_pReal)
prm%aTolTwinfrac = phaseConfig(phase)%getFloat('atol_twinfrac',defaultVal=1.0e-6_pReal)
#if defined(__GFORTRAN__)
outputs = ['GfortranBug86277']
outputs = phaseConfig(phase)%getStrings('(output)',defaultVal=outputs)
if (outputs(1) == 'GfortranBug86277') outputs = [character(len=65536)::]
#else
outputs = phaseConfig(phase)%getStrings('(output)',defaultVal=[character(len=65536)::])
#endif
allocate(prm%outputID(0))
do i=1_pInt, size(outputs)
outputID = undefined_ID