! pFoF is distributed in the hope that it will be useful,

! but WITHOUT ANY WARRANTY; without even the implied warranty of

! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

! GNU General Public License for more details.

!

! You should have received a copy of the GNU General Public License

! along with pFoF. If not, see <http://www.gnu.org/licenses/>.

!> @file

!! Core functions of the conemapper tool: the functions that compute

!! the mapping between the narrow or fullsky light cone and the processes topology that pfof_cone will have to use.

!! @brief

!!

!! @author Fabrice Roy

!> @file

!! This file contains the core functions of the conemapper tool: the functions that compute the mapping between the narrow or fullsky light cone and the processes topology that pfof_cone will have to use.

!> Core functions of the conemapper tool: the functions that compute

!! the mapping between the narrow or fullsky light cone and the processes topology that pfof_cone will have to use.

!> This module contains the core functions of the conemapper tool: the functions that compute the mapping between the narrow or fullsky light cone and the processes topology that pfof_cone will have to use.

Modulemodmap

Modulemap_m

Usemodvariables

Useconemapper_var_m

ImplicitNone

implicitnone

Integer(kind=4)::fofgrid_imin,fofgrid_imax

Integer(kind=4)::fofgrid_jmin,fofgrid_jmax

...

...

@@ -55,8 +46,6 @@ Contains

!> Calls the mapping function for different pfof cube size

Subroutineexploremap()

ImplicitNone

Integer(kind=4)::factor

Integer(kind=4)::if

Integer(kind=4)::fmax

...

...

@@ -88,9 +77,9 @@ Contains

!> Creates a mapping between the cone and the processes topology for pfof_cone given a factor that corresponds to the ratio between the pfof cube edge length and the shell cube edge length.