From 052a0af2acdbf89df020e9002b6318f08557e608 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 1 Jun 2018 10:14:46 +0200 Subject: [PATCH] storing phase part of material.config per section in chained list --- src/material.f90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/material.f90 b/src/material.f90 index 25d115520..cbfff1e78 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -7,6 +7,7 @@ !! 'phase', 'texture', and 'microstucture' !-------------------------------------------------------------------------------------------------- module material + use chained_list use prec, only: & pReal, & pInt, & @@ -304,6 +305,8 @@ module material vacancyConcRate, & !< vacancy conc change field hydrogenConcRate !< hydrogen conc change field + type(tPartitionedStringList), public,protected, allocatable, dimension(:) :: phaseConfig + public :: & material_init, & ELASTICITY_hooke_ID ,& @@ -933,6 +936,8 @@ subroutine material_parsePhase(fileUnit,myPart) allocate(phase_Noutput(Nsections), source=0_pInt) allocate(phase_localPlasticity(Nsections), source=.false.) + allocate(phaseConfig(Nsections)) + phase_Noutput = IO_countTagInPart(fileUnit,myPart,'(output)',Nsections) phase_Nsources = IO_countTagInPart(fileUnit,myPart,'(source)',Nsections) phase_Nkinematics = IO_countTagInPart(fileUnit,myPart,'(kinematics)',Nsections) @@ -970,6 +975,7 @@ subroutine material_parsePhase(fileUnit,myPart) if (section > 0_pInt) then chunkPos = IO_stringPos(line) tag = IO_lc(IO_stringValue(line,chunkPos,1_pInt)) ! extract key + call phaseConfig(section)%add(trim(line),chunkPos) select case(tag) case ('elasticity') select case (IO_lc(IO_stringValue(line,chunkPos,2_pInt)))