重複コード削除：fistr1/src/lib/physics/ElasticNeoHooke.f90