PETIT_TEST petittest.f