Fortran - ayuda no quiero suspender

hola necesito ayuda para resolver una ecuacion no lineal por el método de las diferencias finitas. El programa está hecho, pero tengo errores y no se como arreglarlos. Si no consigo hacer el programa bien me van a suspender, y no puedo preguntar al profesor porque no me ayuda en nada. Si alguien pudiera ayudarme lo agradecería mucho.
Un saludo.