Source.f Subroutine for 2 Sources (2nd attempt)

Dear Experts,

I have attempted to write a source.f subroutine to send beams of 2 different particles, of different energies in different directions. I have managed to get the subroutine to compile and build ok but when I used it in a FLUKA case, I get an error as no seeds are started. If you could take a look at the subroutine and let me know where it's going wrong, that would be great! Apologies, it is a little messy at the moment as my programming experience is minimal and I just want to get it working. Routine is attached.

Best regards,
Lewis.