diff --git a/devel/ccsd_gpu/gpu.c b/devel/ccsd_gpu/gpu.c index 521ac92..e63ae81 100644 --- a/devel/ccsd_gpu/gpu.c +++ b/devel/ccsd_gpu/gpu.c @@ -2040,6 +2040,7 @@ void compute_r1_space_chol_gpu(gpu_data* data, int nO, int nV, double* t1, doubl C=d_r1; ldc=nO; cublasDgemm(handle, CUBLAS_OP_T, CUBLAS_OP_N, m, n, k, &alpha, A, lda, B, ldb, &beta, C, ldc); + cudaFree(d_W_oovo); } }