Inconsistent C function names

gpucinterfaces
sfilippone 4 months ago
parent 92425e2478
commit 14d24b1d7c

@ -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)

@ -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)

Loading…
Cancel
Save