>>459
>>460
・IMPLICIT NONEがあるのに宣言されていない変数が使われている
・サブルーチンの宣言に仮引数がない
・綴りの間違い

何行目に間違いがあるのかはエラーメッセージに示されているはずなので
それを参照して自分で探すこと。