diff --git a/cbind/amgprec/amg_dprec_cbind_mod.F90 b/cbind/amgprec/amg_dprec_cbind_mod.F90 index 29a66067..be83cc08 100644 --- a/cbind/amgprec/amg_dprec_cbind_mod.F90 +++ b/cbind/amgprec/amg_dprec_cbind_mod.F90 @@ -245,7 +245,7 @@ contains return end function amg_c_dsmoothers_build - function amg_c_dsmoothers_build_format(ah,cdh,ph,afmt,cdfmt) bind(c) result(res) + function amg_c_dsmoothers_build_opt(ah,cdh,ph,afmt,cdfmt) bind(c) result(res) #if defined (PSB_HAVE_CUDA) use psb_cuda_mod #endif @@ -357,7 +357,7 @@ contains MLDC_ERR_HANDLE(res) return - end function amg_c_dsmoothers_build_format + end function amg_c_dsmoothers_build_opt function amg_c_dkrylov(methd,& & ah,ph,bh,xh,cdh,options) bind(c) result(res) diff --git a/cbind/test/pargen/amgecgpu.c b/cbind/test/pargen/amgecgpu.c index 5f7389f5..da2252ce 100644 --- a/cbind/test/pargen/amgecgpu.c +++ b/cbind/test/pargen/amgecgpu.c @@ -505,7 +505,7 @@ int main(int argc, char *argv[]) } } #if defined (PSB_HAVE_CUDA) - if ((ret = amg_c_dsmoothers_build_format(ah, cdh, ph, afmt, cdfmt)) != 0) + if ((ret = amg_c_dsmoothers_build_opt(ah, cdh, ph, afmt, cdfmt)) != 0) fprintf(stderr, "From smoothers_build_format: %d\n", ret); #else if ((ret = amg_c_dsmoothers_build(ah, cdh, ph)) != 0)