From 53bd9f9b64b112213864fdafbd2c44a27046aeaf Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 29 Feb 2020 06:39:16 +0100 Subject: [PATCH] need to read in variable before it is used --- src/kinematics_cleavage_opening.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/kinematics_cleavage_opening.f90 b/src/kinematics_cleavage_opening.f90 index 4978576df..5810cc1ca 100644 --- a/src/kinematics_cleavage_opening.f90 +++ b/src/kinematics_cleavage_opening.f90 @@ -73,10 +73,12 @@ subroutine kinematics_cleavage_opening_init prm%sdot0 = config%getFloat('anisobrittle_sdot0') prm%n = config%getFloat('anisobrittle_ratesensitivity') + prm%Ncleavage = config%getInts('ncleavage',defaultVal=emptyIntArray) + prm%critDisp = config%getFloats('anisobrittle_criticaldisplacement',requiredSize=size(prm%Ncleavage)) prm%critLoad = config%getFloats('anisobrittle_criticalload',requiredSize=size(prm%Ncleavage)) - prm%Ncleavage = config%getInts('ncleavage',defaultVal=emptyIntArray) + prm%totalNcleavage = sum(prm%Ncleavage) prm%cleavage_systems = lattice_SchmidMatrix_cleavage (prm%Ncleavage,config%getString('lattice_structure'),& config%getFloat('c/a',defaultVal=0.0_pReal))