Permalink
Browse files

fix dimensions of build_3eri

  • Loading branch information...
pseewald committed Nov 2, 2018
1 parent 91da69d commit b6bd25e53dfa3e745febc79712830034fca8d730
Showing with 3 additions and 3 deletions.
  1. +3 −3 export/fortran/libint_f.F90
@@ -60,14 +60,14 @@ MODULE libint_f
#endif
#ifdef INCLUDE_ERI3
TYPE(C_FUNPTR), DIMENSION(0:libint2_max_am_3eri, 0:libint2_max_am_eri, 0:libint2_max_am_eri), &
TYPE(C_FUNPTR), DIMENSION(0:libint2_max_am_3eri, 0:libint2_max_am, 0:libint2_max_am), &
BIND(C) :: libint2_build_3eri
#if INCLUDE_ERI3 >= 1
TYPE(C_FUNPTR), DIMENSION(0:libint2_max_am_3eri1, 0:libint2_max_am_eri1, 0:libint2_max_am_eri1), &
TYPE(C_FUNPTR), DIMENSION(0:libint2_max_am_3eri1, 0:libint2_max_am, 0:libint2_max_am), &
BIND(C) :: libint2_build_3eri1
#endif
#if INCLUDE_ERI3 >= 2
TYPE(C_FUNPTR), DIMENSION(0:libint2_max_am_3eri2, 0:libint2_max_am_eri2, 0:libint2_max_am_eri2), &
TYPE(C_FUNPTR), DIMENSION(0:libint2_max_am_3eri2, 0:libint2_max_am, 0:libint2_max_am), &
BIND(C) :: libint2_build_3eri2
#endif
#endif

0 comments on commit b6bd25e

Please sign in to comment.