Disc Packer, heuristic 2D disc packer without parameter optimization, Fortran Implementation