Cao embedding dimension source and Fortran

I used Cao algorithm for embedding dimension written in Fortran. It produces 2 graphics, e1 and e22. I need to add a third graphic for better results.

I attach an article about Cao algorithm, I also attach the Cao algorithm source, original and the modified one I use. I made it modified to get better results format.
I attach an article about modifying Cao algorithm adding a third graphic.

Thank you.