rand_real_array Subroutine

subroutine rand_real_array(rrand)
	REAL(rp), DIMENSION(:), INTENT(INOUT)  :: rrand
	INTEGER(8)                             :: irand64
    INTEGER                                :: ii ! Iterator

    do ii=1_idef,SIZE(rrand)
        	call rand_int64(irand64)
        rrand(ii) = rcoeff*REAL(irand64,rp) + 0.5_rp
    end do
end subroutine rand_real_array