diff --git a/src/c2f.h b/src/c2f.h index cb458b5..32193df 100644 --- a/src/c2f.h +++ b/src/c2f.h @@ -20,17 +20,18 @@ #define ALL_CINT_FORTRAN_(NAME) \ int c##NAME##_sph_(double *out, int *shls, int *atm, int *natm, \ - int *bas, int *nbas, double *env, int64_t optptr_as_integer8) { \ + int *bas, int *nbas, double *env, size_t optptr_as_integer8) { \ CINTOpt **opt = (CINTOpt **)optptr_as_integer8; \ return NAME##_sph(out, NULL, shls, \ atm, *natm, bas, *nbas, env, *opt, NULL); \ } \ -void c##NAME##_sph_optimizer_(CINTOpt **opt, int *atm, int *natm, \ +void c##NAME##_sph_optimizer_(size_t optptr_as_integer8, int *atm, int *natm, \ int *bas, int *nbas, double *env) { \ + CINTOpt **opt = (CINTOpt **)optptr_as_integer8; \ NAME##_optimizer(opt, atm, *natm, bas, *nbas, env); \ } \ int c##NAME##_cart_(double *out, int *shls, int *atm, int *natm, \ - int *bas, int *nbas, double *env, int64_t optptr_as_integer8) { \ + int *bas, int *nbas, double *env, size_t optptr_as_integer8) { \ CINTOpt **opt = (CINTOpt **)optptr_as_integer8; \ return NAME##_cart(out, NULL, shls, \ atm, *natm, bas, *nbas, env, *opt, NULL); \ @@ -40,12 +41,12 @@ void c##NAME##_cart_optimizer_(CINTOpt **opt, int *atm, int *natm, \ NAME##_optimizer(opt, atm, *natm, bas, *nbas, env); \ } \ int c##NAME##_(double *out, int *shls, int *atm, int *natm, \ - int *bas, int *nbas, double *env, int64_t optptr_as_integer8) { \ + int *bas, int *nbas, double *env, size_t optptr_as_integer8) { \ CINTOpt **opt = (CINTOpt **)optptr_as_integer8; \ return NAME##_spinor((double complex *)out, NULL, shls, \ atm, *natm, bas, *nbas, env, *opt, NULL); \ } \ -void c##NAME##_optimizer_(int64_t optptr_as_integer8, int *atm, int *natm, \ +void c##NAME##_optimizer_(size_t optptr_as_integer8, int *atm, int *natm, \ int *bas, int *nbas, double *env) { \ CINTOpt **opt = (CINTOpt **)optptr_as_integer8; \ NAME##_optimizer(opt, atm, *natm, bas, *nbas, env); \