integer nbdirsmax parameter (nbdirsmax=2) integer nbdirsmax0 parameter (nbdirsmax0=2)