Commit 2bc295fa authored by Roy Fabrice's avatar Roy Fabrice
Browse files

add copyright

parent da26acc5
!------------------------------------------------------------------------------------------------------------------------------------
! Copyright 2020 Fabrice Roy
!
! Contact: fabrice.roy@obspm.fr
!
! This file is part of pFoF.
!
! pFoF is free software: you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! 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
!! Process halos for halo_post
!! @brief
!!
!! @author Fabrice Roy
!> Process halos for halo_post
!------------------------------------------------------------------------------------------------------------------------------------
module process_halos_array_m
use common_shared_variables_m
......@@ -53,7 +82,7 @@ contains
!$omp master
current_file = halos_array%parameters%halo_file_ids(halos_array%first_halo_index)
input_file_name = trim(halos_array%parameters%data_directory)//trim(halos_array%parameters%file_names(current_file))
input_file_name = trim(halos_array%parameters%halos_data_directory)//trim(halos_array%parameters%halos_file_names(current_file))
call hdf5_open_file(input_file_name, input_file_id)
group_name = 'data'
call hdf5_open_group(input_file_id, group_name, group_id)
......@@ -62,7 +91,7 @@ contains
call hdf5_close_group(group_id)
call hdf5_close_file(input_file_id)
current_file = halos_array%parameters%halo_file_ids(ihalo)
input_file_name = trim(halos_array%parameters%data_directory)//trim(halos_array%parameters%file_names(current_file))
input_file_name = trim(halos_array%parameters%halos_data_directory)//trim(halos_array%parameters%halos_file_names(current_file))
call hdf5_open_file(input_file_name, input_file_id)
group_name = 'data'
call hdf5_open_group(input_file_id, group_name, group_id)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment