Energy and angle of each particle escaping from the surface

Dear David,

I’m sorry for my carelessness,I corrected and got what I wanted. But I still have some problems:
1.I try to adopt an opposite logics, GEON2R.There are some problems with the conversion,I will upload new files.
2.Jtrack represents the particle type,Where can I find these ID?

Limgdraw.f (5.2 KB)