h5ltread_dataset_int_scalar_f Subroutine

public subroutine h5ltread_dataset_int_scalar_f(loc_id, dset_name, x, error)

Write a scalar 32-bit integer

Arguments

Type IntentOptional AttributesName
integer(kind=HID_T), intent(in) :: loc_id

HDF5 file or group identifier

character(len=*), intent(in) :: dset_name

Name of the dataset to create

integer, intent(inout) :: x

Data to be written to the dataset

integer, intent(out) :: error

HDF5 error code


Calls

proc~~h5ltread_dataset_int_scalar_f~~CallsGraph proc~h5ltread_dataset_int_scalar_f h5ltread_dataset_int_scalar_f h5ltread_dataset_int_f h5ltread_dataset_int_f proc~h5ltread_dataset_int_scalar_f->h5ltread_dataset_int_f

Called by

proc~~h5ltread_dataset_int_scalar_f~~CalledByGraph proc~h5ltread_dataset_int_scalar_f h5ltread_dataset_int_scalar_f proc~read_f read_f proc~read_f->proc~h5ltread_dataset_int_scalar_f proc~read_distribution read_distribution proc~read_distribution->proc~h5ltread_dataset_int_scalar_f proc~read_distribution->proc~read_f proc~read_mc read_mc proc~read_distribution->proc~read_mc proc~read_mc->proc~h5ltread_dataset_int_scalar_f proc~read_nuclear_rates read_nuclear_rates proc~read_nuclear_rates->proc~h5ltread_dataset_int_scalar_f proc~read_tables read_tables proc~read_tables->proc~h5ltread_dataset_int_scalar_f proc~read_tables->proc~read_nuclear_rates proc~read_atomic_transitions read_atomic_transitions proc~read_tables->proc~read_atomic_transitions proc~read_atomic_rate read_atomic_rate proc~read_tables->proc~read_atomic_rate proc~read_atomic_cross read_atomic_cross proc~read_tables->proc~read_atomic_cross proc~read_atomic_transitions->proc~h5ltread_dataset_int_scalar_f proc~read_atomic_rate->proc~h5ltread_dataset_int_scalar_f proc~read_chords read_chords proc~read_chords->proc~h5ltread_dataset_int_scalar_f proc~read_npa read_npa proc~read_npa->proc~h5ltread_dataset_int_scalar_f proc~read_beam read_beam proc~read_beam->proc~h5ltread_dataset_int_scalar_f proc~read_atomic_cross->proc~h5ltread_dataset_int_scalar_f proc~read_equilibrium read_equilibrium proc~read_equilibrium->proc~h5ltread_dataset_int_scalar_f proc~read_neutrals read_neutrals proc~read_neutrals->proc~h5ltread_dataset_int_scalar_f program~fidasim fidasim program~fidasim->proc~read_distribution program~fidasim->proc~read_tables program~fidasim->proc~read_chords program~fidasim->proc~read_npa program~fidasim->proc~read_equilibrium program~fidasim->proc~read_neutrals

Contents


Source Code

subroutine h5ltread_dataset_int_scalar_f(loc_id, dset_name, x, error)
    !+ Write a scalar 32-bit integer

    IMPLICIT NONE

    integer(HID_T), intent(in)   :: loc_id
        !+ HDF5 file or group identifier
    character(len=*), intent(in) :: dset_name
        !+ Name of the dataset to create
    integer, intent(inout)       :: x
        !+ Data to be written to the dataset
    integer, intent(out)         :: error
        !+ HDF5 error code

    integer(HSIZE_T), dimension(1) :: dims(1) = 1
    integer, dimension(1) :: dummy

    call h5ltread_dataset_int_f(loc_id, dset_name, dummy, dims, error)
    x = dummy(1)

end subroutine h5ltread_dataset_int_scalar_f