UGENS and VUGENS subroutine