Inconsistent C function names

gpucinterfaces
sfilippone 4 months ago
parent 92425e2478
commit 14d24b1d7c

@ -245,7 +245,7 @@ contains
return return
end function amg_c_dsmoothers_build 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) #if defined (PSB_HAVE_CUDA)
use psb_cuda_mod use psb_cuda_mod
#endif #endif
@ -357,7 +357,7 @@ contains
MLDC_ERR_HANDLE(res) MLDC_ERR_HANDLE(res)
return return
end function amg_c_dsmoothers_build_format end function amg_c_dsmoothers_build_opt
function amg_c_dkrylov(methd,& function amg_c_dkrylov(methd,&
& ah,ph,bh,xh,cdh,options) bind(c) result(res) & ah,ph,bh,xh,cdh,options) bind(c) result(res)

@ -505,7 +505,7 @@ int main(int argc, char *argv[])
} }
} }
#if defined (PSB_HAVE_CUDA) #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); fprintf(stderr, "From smoothers_build_format: %d\n", ret);
#else #else
if ((ret = amg_c_dsmoothers_build(ah, cdh, ph)) != 0) if ((ret = amg_c_dsmoothers_build(ah, cdh, ph)) != 0)

Loading…
Cancel
Save