suppression of a for loop by vectorisation in quasi