set_max_ratio_hdf5Int Subroutine

public subroutine set_max_ratio_hdf5Int(val, j)

Uses

    • hdf5

Arguments

Type IntentOptional Attributes Name
integer(kind=hsize_t), intent(in) :: val(:)
integer, intent(in) :: j

Source Code

    subroutine set_max_ratio_hdf5Int(val, j)
        use hdf5, only: hsize_t
        ! Set the maximum ratio Hij/pgen for the determinant j to val
        ! Input: j - index of the determinant
        !        val - new maximum Hij/pgen ratio, bitwise re-interpreted as hsize_t int
        implicit none
        integer(hsize_t), intent(in) :: val(:)
        integer, intent(in) :: j
        ! dummy to specify the target type
        real(dp) :: real_val
        real_val = 0.0_dp
        if (size(val)>0) &
            global_determinant_data(pos_max_ratio, j) = transfer(val(1), real_val)
    end subroutine set_max_ratio_hdf5Int