Commit 84f5ad89 authored by Roy Fabrice's avatar Roy Fabrice
Browse files

Merge branch 'fhi-integration' into 'master'

Fhi integration

See merge request roy/pFoF_dev!1
parents baa62578 7a8aceeb
FC=h5pfc
FHIDIR = $(HOME)/Codes/fortran-hdf5-interface
FHIMOD = $(FHIDIR)/mod
FHILIB = $(FHIDIR)/lib
# Optional precompiler options used in the code:
# -DDEBUGHDF5: print some debug info in HDF5 I/O routines
# -DLONGING: uses integer(kind=8) for ID
......
......@@ -27,10 +27,15 @@
module modreadcube
use fortran_hdf5_constants_m, only : H5_FILENAME_LEN, H5_STR_LEN
use fortran_hdf5_manage_groups_m, only : hdf5_close_group, hdf5_open_group
use fortran_hdf5_manage_files_m, only : hdf5_close_file, hdf5_open_file, Hdf5_open_mpi_file
use fortran_hdf5_read_attribute_m
use fortran_hdf5_read_data_m
use fortran_hdf5_read_mpi_data_m
use hdf5, only : HID_T
use iso_fortran_env, only : OUTPUT_UNIT
use modconstant, only : IDKIND
use modhdf5, only : H5_STR_LEN, H5_FILENAME_LEN, Hdf5_close_group, Hdf5_close_file, Hdf5_open_file, Hdf5_open_group, &
Hdf5_open_mpi_file, Hdf5_read_attr, Hdf5_read_data, Hdf5_read_mpi_data, hid_t
use modmpicom, only : info_proc
use modvariables, only : common_meta, inforamses, ngrid, param, xmax, xmin, ymax, ymin, zmax, zmin
use modmpicommons, only : Emergencystop, procid
......@@ -52,8 +57,8 @@ contains
!=======================================================================
subroutine Selectreadcubetype()
integer(kind=hid_t) :: file_id
integer(kind=hid_t) :: gr_id
integer(kind=HID_T) :: file_id
integer(kind=HID_T) :: gr_id
character(len=H5_FILENAME_LEN) :: filename
character(len=H5_STR_LEN) :: h5name
character(len=H5_STR_LEN) :: filetype
......@@ -93,8 +98,8 @@ contains
integer :: allocstat
character(len=H5_FILENAME_LEN) :: filename ! File name
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
character(len=H5_STR_LEN) :: aname ! Attribute name
character(len=H5_STR_LEN) :: dsetname ! Dataset name
character(len=H5_STR_LEN) :: groupname
......@@ -206,9 +211,9 @@ contains
integer :: allocstat
character(len=H5_FILENAME_LEN) :: filename ! File name
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_data_id ! Group identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_data_id ! Group identifier
integer(HID_T) :: gr_id ! Group identifier
character(len=8) :: gid_char
character(len=H5_STR_LEN) :: aname ! Attribute name
character(len=H5_STR_LEN) :: dsetname ! Dataset name
......@@ -360,8 +365,8 @@ contains
character(len=H5_STR_LEN) :: aname ! Attribute name
character(len=H5_STR_LEN) :: groupname
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
integer(kind=4) :: procperfile
integer(kind=4), dimension(:), allocatable :: partnb_tab
......@@ -514,9 +519,9 @@ contains
character(len=H5_STR_LEN) :: aname ! Attribute name
character(len=H5_STR_LEN) :: groupname
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_data_id ! Group identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_data_id ! Group identifier
integer(HID_T) :: gr_id ! Group identifier
integer(kind=4) :: procperfile
integer(kind=4), dimension(:), allocatable :: partnb_tab
......
......@@ -43,7 +43,7 @@ contains
use iso_fortran_env, only : ERROR_UNIT, OUTPUT_UNIT
use modconstant, only : IDKIND, type_common_metadata, type_parameter_pfof, type_info_ramses, type_info_cone_part
use modhdf5, only : H5_FILENAME_LEN, hid_t, H5_STR_LEN, Hdf5_open_file, Hdf5_open_group, Hdf5_close_group,&
use modhdf5, only : H5_FILENAME_LEN, HID_T, H5_STR_LEN, Hdf5_open_file, Hdf5_open_group, Hdf5_close_group,&
HDF5_read_attr, Hdf5_read_data, Hdf5_close_file
use modmpicommons, only : type_info_process
use modreadmeta, only : Read_meta_common, &
......@@ -65,7 +65,7 @@ contains
type(type_info_cone_part), intent(out), optional :: info_cone
! local variables
integer(hid_t) :: file_id, data_id, meta_id
integer(HID_T) :: file_id, data_id, meta_id
character(len=H5_STR_LEN) :: dname, groupname
integer(kind=4) :: nhalo
......@@ -159,7 +159,7 @@ contains
use iso_fortran_env, only : ERROR_UNIT, OUTPUT_UNIT
use modconstant, only : ERR_MSG_LEN, IDKIND, &
type_common_metadata, type_parameter_pfof, type_info_ramses, type_info_cone_part
use modhdf5, only : H5_FILENAME_LEN, hid_t, H5_STR_LEN, Hdf5_open_file, Hdf5_open_group, Hdf5_close_group,&
use modhdf5, only : H5_FILENAME_LEN, HID_T, H5_STR_LEN, Hdf5_open_file, Hdf5_open_group, Hdf5_close_group,&
Hdf5_read_data, Hdf5_close_file
use modmpicommons, only : type_info_process
use modreadmeta, only : Read_meta_common, &
......@@ -177,7 +177,7 @@ contains
class(type_parameter_pfof), intent(out), optional :: parameter_pfof
type(type_info_ramses), intent(out), optional :: info_ramses
type(type_info_cone_part), intent(out), optional :: info_cone
integer(kind=hid_t) :: file_id, data_id, meta_id
integer(kind=HID_T) :: file_id, data_id, meta_id
type(type_common_metadata) :: common_metadata
integer(kind=4) :: npart_file
integer(kind=8) :: npart8
......
......@@ -51,14 +51,12 @@ module modreadmeta
type_info_cone_grav,&
type_info_ramses
use modhdf5, only : hid_t,&
H5_STR_LEN,&
Hdf5_create_group,&
Hdf5_open_group,&
Hdf5_close_group,&
Hdf5_read_attr,&
Hdf5_read_data
use fortran_hdf5_constants_m, only : H5_FILENAME_LEN, H5_STR_LEN
use fortran_hdf5_manage_groups_m, only : Hdf5_close_group, Hdf5_open_group
use fortran_hdf5_read_attribute_m, only : Hdf5_read_attr
use fortran_hdf5_read_data_m, only : Hdf5_read_data
use hdf5, only : HID_T
use modmpicommons, only : procid
implicit none
......@@ -77,12 +75,12 @@ contains
!> Read metadata common to every hdf5 ouput files of the pfof toolbox
subroutine Read_meta_common(file_id, common)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
type(type_common_metadata), intent(out) :: common
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: name
integer(kind=hid_t) :: meta_id
integer(kind=HID_T) :: meta_id
integer(kind=4) :: length
#ifdef DEBUG
......@@ -121,16 +119,16 @@ contains
!> Read conecreator input parameters as metadata
subroutine Read_meta_conecreator_parameter(file_id, param_cone)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
class(type_parameter_conecreator), intent(out) :: param_cone
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_param_id
integer(kind=hid_t) :: gr_input_id
integer(kind=hid_t) :: gr_output_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_param_id
integer(kind=HID_T) :: gr_input_id
integer(kind=HID_T) :: gr_output_id
integer(kind=4) :: tmpint4
character(len=16) :: c_b_name
......@@ -233,17 +231,17 @@ contains
!> Read pfof input parameters as metadata
subroutine Read_meta_halofinder_parameter(file_id, param_pfof)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
class(type_parameter_pfof), intent(out) :: param_pfof
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_pfof_id
integer(kind=hid_t) :: gr_input_id
integer(kind=hid_t) :: gr_fof_id
integer(kind=hid_t) :: gr_output_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_pfof_id
integer(kind=HID_T) :: gr_input_id
integer(kind=HID_T) :: gr_fof_id
integer(kind=HID_T) :: gr_output_id
integer(kind=4) :: tmpint4
character(len=16) :: c_b_name
......@@ -390,15 +388,15 @@ contains
!> Read light cone info as metadata
subroutine Read_meta_info_cone(file_id, infocone, islast)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
class(type_info_cone), intent(out) :: infocone
logical(kind=4), intent(in) :: islast
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_cone_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_cone_id
#ifdef DEBUG
write(OUTPUT_UNIT,*) 'Enter Read_meta_info_cone on process ', procid
......@@ -514,15 +512,15 @@ contains
!> Read ramses info as metadata
subroutine Read_meta_info_ramses(file_id, inforamses, islast)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
type(type_info_ramses), intent(out) :: inforamses
logical(kind=4), intent(in) :: islast
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_ramses_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_ramses_id
#ifdef DEBUG
write(OUTPUT_UNIT,*) 'Enter Read_meta_info_ramses on process ', procid
......
......@@ -41,19 +41,15 @@ module modwritehalo
use modmpicommons, only : procID,&
type_info_process,&
emergencystop
use modhdf5, only : H5_FILENAME_LEN, &
H5_STR_LEN,&
HID_T,&
hdf5_create_file,&
hdf5_create_mpi_file,&
hdf5_close_mpi_file,&
hdf5_close_file,&
hdf5_create_group,&
hdf5_open_group,&
hdf5_close_group,&
hdf5_write_attr,&
hdf5_write_data,&
hdf5_write_mpi_data
use fortran_hdf5_constants_m, only : H5_FILENAME_LEN, H5_STR_LEN
use fortran_hdf5_manage_files_m, only : hdf5_close_file, hdf5_close_mpi_file, hdf5_create_file, hdf5_create_mpi_file
use fortran_hdf5_manage_groups_m, only : hdf5_close_group, hdf5_create_group, hdf5_open_group
use fortran_hdf5_write_attribute_m
use fortran_hdf5_write_data_m
use fortran_hdf5_write_mpi_data_m
use hdf5, only : HID_T
use modwritemeta, only : Write_meta_common,&
Write_meta_halofinder_parameter,&
Write_meta_info_ramses,&
......@@ -111,9 +107,9 @@ contains
character(len=H5_STR_LEN) :: adata
character(len=H5_STR_LEN) :: halofinder
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(hid_t) :: gr_halo_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
integer(HID_T) :: gr_halo_id ! Group identifier
integer(kind=4), dimension(:), allocatable :: halo_number_vector, dspl
integer(kind=4), dimension(:), allocatable :: haloMasstab
......@@ -363,10 +359,10 @@ contains
character(len=H5_STR_LEN) :: adata
character(len=H5_STR_LEN) :: halofinder
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_halo_id ! Group identifier
integer(hid_t) :: gr_data_id ! Group identifier
integer(hid_t) :: gr_meta_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_halo_id ! Group identifier
integer(HID_T) :: gr_data_id ! Group identifier
integer(HID_T) :: gr_meta_id ! Group identifier
integer(kind=4), dimension(:), allocatable :: halo_number_vector, dspl
integer(kind=4), dimension(:), allocatable :: haloMasstab
......@@ -676,8 +672,8 @@ contains
character(len=H5_STR_LEN) :: halofinder
character(len=ERR_MSG_LEN) :: errormessage
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id
integer(kind=4) :: begh, endh
logical(kind=4) :: empty
integer(kind=8) :: npart8
......
......@@ -51,17 +51,12 @@ module modwritemeta
type_info_cone_part,&
type_info_cone_grav
use modhdf5, only : hid_t,&
H5_STR_LEN,&
Hdf5_create_group,&
Hdf5_open_group,&
Hdf5_close_group,&
Hdf5_read_attr,&
Hdf5_read_data,&
Hdf5_write_attr,&
Hdf5_write_data
use fortran_hdf5_constants_m, only : H5_STR_LEN
use fortran_hdf5_manage_groups_m, only : Hdf5_close_group, Hdf5_create_group, Hdf5_open_group
use fortran_hdf5_write_attribute_m, only : Hdf5_write_attr
use fortran_hdf5_write_data_m, only : Hdf5_write_data
use hdf5, only : HID_T
use modmpicommons, only : procid
implicit none
......@@ -82,7 +77,7 @@ contains
!> Write metadata common to every hdf5 ouput files of the pfof toolbox
subroutine Write_meta_common(file_id, codename, npart, constant_mass, process_id, part_type)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
character(len=H5_STR_LEN), intent(in) :: codename
integer(kind=8), intent(in) :: npart
integer(kind=4), intent(in), optional :: constant_mass
......@@ -93,7 +88,7 @@ contains
character(len=H5_STR_LEN) :: aname
character(len=H5_STR_LEN) :: adata
character(len=H5_STR_LEN) :: dsetname
integer(kind=hid_t) :: gr_id
integer(kind=HID_T) :: gr_id
integer(kind=4) :: tmpint4
#ifdef DEBUG
......@@ -152,16 +147,16 @@ contains
!> Write halofinder input parameters as metadata
subroutine Write_meta_halofinder_parameter(file_id, param_halofinder)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
class(type_parameter_halofinder), intent(in) :: param_halofinder
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_pfof_id
integer(kind=hid_t) :: gr_input_id
integer(kind=hid_t) :: gr_fof_id
integer(kind=hid_t) :: gr_output_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_pfof_id
integer(kind=HID_T) :: gr_input_id
integer(kind=HID_T) :: gr_fof_id
integer(kind=HID_T) :: gr_output_id
integer(kind=4) :: tmpint4
character(len=16) :: c_b_name
......@@ -354,15 +349,15 @@ contains
!> Write conecreator input parameters as metadata
subroutine Write_meta_conecreator_parameter(file_id, param_cone)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
class(type_parameter_conecreator), intent(in) :: param_cone
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_param_id
integer(kind=hid_t) :: gr_input_id
integer(kind=hid_t) :: gr_output_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_param_id
integer(kind=HID_T) :: gr_input_id
integer(kind=HID_T) :: gr_output_id
integer(kind=4) :: tmpint4
character(len=16) :: c_b_name
......@@ -474,14 +469,14 @@ contains
!> Write ramses info as metadata
subroutine Write_meta_info_ramses(file_id, inforamses, islast)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
type(type_info_ramses), intent(in) :: inforamses
logical(kind=4), intent(in) :: islast
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_ramses_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_ramses_id
#ifdef DEBUG
write(OUTPUT_UNIT,*) 'Enter Write_meta_info_ramses on process ', procid
......@@ -543,15 +538,15 @@ contains
!> Write light cone info as metadata
subroutine Write_meta_info_cone(file_id, infocone, islast)
integer(kind=hid_t), intent(in) :: file_id
integer(kind=HID_T), intent(in) :: file_id
class(type_info_cone), intent(in) :: infocone
logical(kind=4), intent(in) :: islast
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: aname
integer(kind=hid_t) :: gr_id
integer(kind=hid_t) :: gr_cone_id
integer(kind=HID_T) :: gr_id
integer(kind=HID_T) :: gr_cone_id
#ifdef DEBUG
write(OUTPUT_UNIT,*) 'Enter Write_meta_info_cone on process ', procid
......
......@@ -30,7 +30,7 @@ module read_star_cube_mod
use iso_fortran_env, only : ERROR_UNIT, OUTPUT_UNIT
use modconstant, only : IDKIND, type_common_metadata, type_parameter_pfof_snap, type_info_ramses
use modhdf5, only : H5_STR_LEN, H5_FILENAME_LEN, Hdf5_close_group, Hdf5_close_file, Hdf5_open_file, Hdf5_open_group, &
Hdf5_open_mpi_file, Hdf5_read_attr, Hdf5_read_data, Hdf5_read_mpi_data, hid_t
Hdf5_open_mpi_file, Hdf5_read_attr, Hdf5_read_data, Hdf5_read_mpi_data, HID_T
use modmpicommons, only : Emergencystop
use mpi
use modreadmeta, only : Read_meta_common, Read_meta_info_ramses, Read_meta_halofinder_parameter
......@@ -65,8 +65,8 @@ contains
character(len=H5_FILENAME_LEN), intent(in) :: filename
integer(kind=4), intent(in) :: process_id
integer(kind=hid_t) :: file_id
integer(kind=hid_t) :: gr_id
integer(kind=HID_T) :: file_id
integer(kind=HID_T) :: gr_id
character(len=H5_STR_LEN) :: h5name
character(len=H5_STR_LEN) :: filetype
integer(kind=4) :: mpierr
......@@ -110,8 +110,8 @@ contains
integer(kind=4), intent(in) :: process_id
character(len=:), allocatable :: alloc_err_msg
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
character(len=H5_STR_LEN) :: aname ! Attribute name
character(len=H5_STR_LEN) :: dsetname ! Dataset name
character(len=H5_STR_LEN) :: groupname
......@@ -224,9 +224,9 @@ contains
integer :: alloc_stat
character(len=:), allocatable :: alloc_err_msg
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_data_id ! Group identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_data_id ! Group identifier
integer(HID_T) :: gr_id ! Group identifier
character(len=8) :: gid_char
character(len=H5_STR_LEN) :: aname ! Attribute name
character(len=H5_STR_LEN) :: dsetname ! Dataset name
......
......@@ -28,9 +28,13 @@ module modwritedmcube
use mpi
use modvarcommons, only : field, global_npart, local_npart, mass, pfof_id, position, potential, velocity
use modhdf5, only : H5_STR_LEN, H5_FILENAME_LEN, hdf5_close_file, hdf5_close_group, hdf5_close_mpi_file, &
hdf5_create_file, hdf5_create_group, hdf5_create_mpi_file, &
hdf5_open_group, hdf5_write_attr, hdf5_write_data, hdf5_write_mpi_data, hid_t
use fortran_hdf5_constants_m, only : H5_FILENAME_LEN, H5_STR_LEN
use fortran_hdf5_manage_groups_m, only : hdf5_close_group, hdf5_create_group, hdf5_open_group
use fortran_hdf5_manage_files_m, only : hdf5_close_file, hdf5_close_mpi_file, hdf5_create_file, hdf5_create_mpi_file
use fortran_hdf5_write_attribute_m
use fortran_hdf5_write_data_m
use fortran_hdf5_write_mpi_data_m
use hdf5, only : HID_T
use modmpicom, only : info_proc
use modvariables, only : inforamses, param, xmax, xmin, ymax, ymin, zmax, zmin
use modmpicommons, only : procid, procnb
......@@ -78,8 +82,8 @@ contains
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: codename
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
integer(kind=4) :: mpierr
real(kind=4), dimension(6) :: boundaries
......@@ -206,8 +210,8 @@ contains
character(len=H5_STR_LEN) :: adata
character(len=H5_STR_LEN) :: codename
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
integer(kind=4) :: procperfile
integer(kind=4) :: npart
......@@ -365,9 +369,9 @@ contains
character(len=H5_STR_LEN) :: groupname
character(len=H5_STR_LEN) :: codename
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id
integer(hid_t) :: gr_data_id
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id
integer(HID_T) :: gr_data_id
real(kind=4), dimension(6) :: boundaries
......@@ -603,9 +607,9 @@ contains
character(len=H5_STR_LEN) :: adata
character(len=H5_STR_LEN) :: codename
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id
integer(hid_t) :: gr_data_id
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id
integer(HID_T) :: gr_data_id
integer(kind=4) :: procperfile
integer(kind=4) :: npart
......
......@@ -31,9 +31,16 @@ module modwritestarcube
star_position, star_velocity, star_ramses_id, star_mass, star_birth_date, star_metallicity, star_field, &
star_potential, global_nstar, local_nstar
use modhdf5, only : H5_STR_LEN, H5_FILENAME_LEN, hdf5_close_file, hdf5_close_group, hdf5_close_mpi_file, &
hdf5_create_file, hdf5_create_group, hdf5_create_mpi_file, &
hdf5_open_group, hdf5_write_attr, hdf5_write_data, hdf5_write_mpi_data, hid_t
use fortran_hdf5_constants_m, only : H5_FILENAME_LEN, H5_STR_LEN
use fortran_hdf5_manage_groups_m, only : hdf5_close_group, hdf5_create_group, hdf5_open_group
use fortran_hdf5_manage_files_m, only : hdf5_close_file, hdf5_close_mpi_file, hdf5_create_file, hdf5_create_mpi_file
use fortran_hdf5_write_attribute_m
use fortran_hdf5_write_data_m
use fortran_hdf5_write_mpi_data_m
use hdf5, only : HID_T
! use modhdf5, only : H5_STR_LEN, H5_FILENAME_LEN, hdf5_close_file, hdf5_close_group, hdf5_close_mpi_file, &
! hdf5_create_file, hdf5_create_group, hdf5_create_mpi_file, &
! hdf5_open_group, hdf5_write_attr, hdf5_write_data, hdf5_write_mpi_data, HID_T
use modmpicom, only : info_proc
use modvariables, only : inforamses, param, xmax, xmin, ymax, ymin, zmax, zmin
use modmpicommons, only : procid, procnb
......@@ -83,8 +90,8 @@ contains
character(len=H5_STR_LEN) :: codename
character(len=H5_STR_LEN) :: part_type
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
real(kind=4), dimension(6) :: boundaries
integer(kind=8) :: npart8
......@@ -204,8 +211,8 @@ contains
character(len=H5_STR_LEN) :: codename
character(len=H5_STR_LEN) :: part_type
integer(hid_t) :: file_id ! File identifier
integer(hid_t) :: gr_id ! Group identifier
integer(HID_T) :: file_id ! File identifier
integer(HID_T) :: gr_id ! Group identifier
integer(kind=4) :: procperfile
integer(kind=4) :: npart
......@@ -365,9 +372,9 @@ contains
character(len=H5_STR_LEN) :: codename