Fix pointer type (int64_t -> size_t)

sunqm · Apr 25, 2018 · c8a9730 · c8a9730
1 parent 76061ee
commit c8a9730
Showing 1 changed file with 6 additions and 5 deletions.
diff --git 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); \