BLASサブルーチンの一部をちょっと自作してみただけ