function dlat_to_dvol(lattice) result(vol) real(wp), intent(in) :: lattice(3, 3) real(wp) :: vol vol = matdet_3x3(lattice) end function dlat_to_dvol