! A necessary module for TAPENADE
MODULE DIFFSIZES
        Implicit None
        integer, parameter :: nbdirsmax=16
END MODULE DIFFSIZES