added DO WHILE stmt for BLAS support