! 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.