Select Code to Download

use strict;
use warnings;
...
                
        });
MainLoop;

    foreach my $spring (@{$self->{_PhSprings_springs}}) {
        my $p1 = $self->{p}[$spring->{p1}];
...
        $p2->{_fy} += $force2 * $dy;
        $p2->{_fz} += $force2 * $dz;
    }