WriteArray_HDF5_real_r5_serial Subroutine

  1. SELF_HDF5.f90
  2. SELF_HDF5
  3. WriteArray_HDF5_real_r5_serial

private subroutine WriteArray_HDF5_real_r5_serial(fileId, arrayName, hfArray)

Arguments

TypeIntentOptionalAttributesName
integer(kind=HID_T), intent(in) :: fileId
character, intent(in) :: arrayName
real(kind=prec), intent(in), dimension(:,:,:,:,:):: hfArray

Calls

proc~~writearray_hdf5_real_r5_serial~~CallsGraph proc~writearray_hdf5_real_r5_serial WriteArray_HDF5_real_r5_serial h5sclose_f h5sclose_f proc~writearray_hdf5_real_r5_serial->h5sclose_f h5dwrite_f h5dwrite_f proc~writearray_hdf5_real_r5_serial->h5dwrite_f h5screate_simple_f h5screate_simple_f proc~writearray_hdf5_real_r5_serial->h5screate_simple_f h5dcreate_f h5dcreate_f proc~writearray_hdf5_real_r5_serial->h5dcreate_f h5dclose_f h5dclose_f proc~writearray_hdf5_real_r5_serial->h5dclose_f

Called by

proc~~writearray_hdf5_real_r5_serial~~CalledByGraph proc~writearray_hdf5_real_r5_serial WriteArray_HDF5_real_r5_serial interface~writearray_hdf5 WriteArray_HDF5 interface~writearray_hdf5->proc~writearray_hdf5_real_r5_serial proc~write_mesh2d_t Write_Mesh2D_t proc~write_mesh2d_t->interface~writearray_hdf5 proc~writehdf5_lagrange_t WriteHDF5_Lagrange_t proc~writehdf5_lagrange_t->interface~writearray_hdf5 proc~writehdf5_vector3d_t WriteHDF5_Vector3D_t proc~writehdf5_vector3d_t->interface~writearray_hdf5 proc~writehdf5_mpi_scalar3d_t WriteHDF5_MPI_Scalar3D_t proc~writehdf5_mpi_scalar3d_t->interface~writearray_hdf5 proc~writehdf5_mpi_vector2d_t WriteHDF5_MPI_Vector2D_t proc~writehdf5_mpi_vector2d_t->interface~writearray_hdf5 proc~writehdf5_scalar2d_t WriteHDF5_Scalar2D_t proc~writehdf5_scalar2d_t->interface~writearray_hdf5 proc~writehdf5_vector2d_t WriteHDF5_Vector2D_t proc~writehdf5_vector2d_t->interface~writearray_hdf5 proc~write_geometry1d Write_Geometry1D proc~write_geometry1d->interface~writearray_hdf5 proc~writehdf5_mpi_vector3d_t WriteHDF5_MPI_Vector3D_t proc~writehdf5_mpi_vector3d_t->interface~writearray_hdf5 proc~write_mesh1d Write_Mesh1D proc~write_mesh1d->interface~writearray_hdf5 proc~writehdf5_scalar3d_t WriteHDF5_Scalar3D_t proc~writehdf5_scalar3d_t->interface~writearray_hdf5 proc~write_mesh3d_t Write_Mesh3D_t proc~write_mesh3d_t->interface~writearray_hdf5 proc~writehdf5_mpi_scalar2d_t WriteHDF5_MPI_Scalar2D_t proc~writehdf5_mpi_scalar2d_t->interface~writearray_hdf5 proc~writehdf5_scalar1d_t WriteHDF5_Scalar1D_t proc~writehdf5_scalar1d_t->interface~writearray_hdf5

Contents

Source Code

WriteArray_HDF5_real_r5_serial

Source Code

  subroutine WriteArray_HDF5_real_r5_serial(fileId,arrayName,hfArray)
    implicit none
    integer(HID_T),intent(in) :: fileId
    character(*),intent(in) :: arrayName
    real(prec),dimension(:,:,:,:,:),intent(in) :: hfArray
    ! Local
    integer(HID_T) :: dsetId
    integer(HID_T) :: memspace
    integer(HSIZE_T) :: dims(1:5)
    integer :: error

    dims = shape(hfArray)
    call h5screate_simple_f(5,dims,memspace,error)

    call h5dcreate_f(fileId,trim(arrayName),HDF5_IO_PREC,memspace,dsetId,error)

    call h5dwrite_f(dsetId,HDF5_IO_PREC, &
                    hfArray,dims,error)

    call h5dclose_f(dSetId,error)
    call h5sclose_f(memspace,error)

  endsubroutine WriteArray_HDF5_real_r5_serial