read_hdf5_dense Subroutine

private subroutine read_hdf5_dense(this, filename)

Read the integrals from an hdf5 file to dense format @param[in] filename name of the file to read from

Type Bound

dense_lMat_t

Arguments

Type IntentOptional Attributes Name
class(dense_lMat_t), intent(inout) :: this
character(len=*), intent(in) :: filename

Contents

Source Code

read_hdf5_dense

Source Code

    subroutine read_hdf5_dense(this, filename)
        class(dense_lMat_t), intent(inout) :: this
        character(*), intent(in) :: filename
#ifdef USE_HDF_
        type(lMat_hdf5_read_t) :: reader
        integer(hsize_t) :: nInts

        call reader%open(filename, nInts)
        call reader%loop_file(this)
        call reader%close()
#else
        character(*), parameter :: t_r = "read_hdf5_dense"
        unused_var(this)
        if (len(filename) /= 0) continue
        call stop_all(t_r, "hdf5 support disabled at compile time")
#endif
    end subroutine read_hdf5_dense