Any continuum damage mechanics code?

Dear all,

I'm working on crack propagation on concrete, I calculate stress and displacement, and now I want to calcula the damage , does any one have a matlab code and share it with me to apply it for my case, I'll appreciate it. Cordially