c SUBROUTINE UEL c : Main function for the computational implementation of c a two-dimensional linear intrinsic cohesive element c SUBROUTINE k_Cohesive_PPR c : Function to compute the traction-separation relationship c of the PPR potential-based mod