From 286a50b1e1ee21a8dbb2c66d9cb9a69ba541e480 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 1 Jun 2017 09:16:57 +0200 Subject: Model: initialized transition (relative) energy to 0 --- lib/Kratos/DFADriver/Model.pm | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) (limited to 'lib/Kratos') diff --git a/lib/Kratos/DFADriver/Model.pm b/lib/Kratos/DFADriver/Model.pm index d97bde9..aff44cf 100644 --- a/lib/Kratos/DFADriver/Model.pm +++ b/lib/Kratos/DFADriver/Model.pm @@ -123,7 +123,10 @@ sub new_from_repo { } if ( exists $repo->{class}{"DriverEvalThread_${class_name}"} ) { - for my $var ( keys %{ $repo->{class}{"DriverEvalThread_${class_name}"}{variable} } ) { + for my $var ( + keys %{ $repo->{class}{"DriverEvalThread_${class_name}"}{variable} } + ) + { if ( $var =~ m{ ^ testVal __ (? [^_]+ ) __ arg (? \d+ ) __ (? [^_]+ ) $ }x ) @@ -156,12 +159,15 @@ sub new_from_repo { my $name = $transition_names[$i]; my $guess_level = ( $name eq 'epilogue' ? 'epilogue' : 'user' ); $self->{transition}{$name} = { - name => $name, - id => $i, - destination => $transition{$name}{dst}[0], - origins => $transition{$name}{src}, - level => $transition{$name}{level} // $guess_level, - parameters => $transition{$name}{parameters} // [], + name => $name, + id => $i, + destination => $transition{$name}{dst}[0], + origins => $transition{$name}{src}, + level => $transition{$name}{level} // $guess_level, + parameters => $transition{$name}{parameters} // [], + energy => { static => 0 }, + rel_energy_prev => { static => 0 }, + rel_energy_next => { static => 0 }, }; if ( @{ $transition{$name}{dst} } > 1 ) { warn( -- cgit v1.2.3