【全体】ファイル内容の変更

サブルーチンを追加。