Function modify

check/cublas_example.cpp:13–17

#define IDX2C(i, j, ld) (((j) * (ld)) + (i))

static __inline__ void modify(cublasHandle_t handle, float* m, int ldm, int n,
                              int p, int q, float alpha, float beta) {
  cublasSscal(handle, n - q, &alpha, &m[IDX2C(p, q, ldm)], ldm);
  cublasSscal(handle, ldm - p, &beta, &m[IDX2C(p, q, ldm)], 1);
}

int main(void) {
  cudaError_t cudaStat;