La tua procedura Compenetrazione ti ritorna sempre 0, giusto? Se è così l'errore è banale, vale a dire in fondo alla procedura ritorni il valore 0, a prescindere dalle tue if.
Fammi sapere se è questo il problema, altrimenti quando ho tempo (se lo trovo) dovrò analizzare tutto il codice.


Ciao