add partitioner Fortran program