Skip to content

Commit

Permalink
patch 1: Fix for compile time error related to aoint subroutine that …
Browse files Browse the repository at this point in the history
…occurs when using ifort
  • Loading branch information
Madu86 committed Mar 5, 2024
1 parent c1de288 commit 0f19bea
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion src/modules/include/eri.fh
Original file line number Diff line number Diff line change
Expand Up @@ -574,6 +574,7 @@ subroutine iclass_cshell(I,J,K,L,NNA,NNC,NNAB,NNCD)
LLL2=quick_basis%ksumtype(LL)+NBL2

if (quick_method%nodirect) then
#ifdef COMPILE_AOINT
INTNUM = 0
do III=III1,III2
do JJJ=max(III,JJJ1),JJJ2
Expand Down Expand Up @@ -644,6 +645,7 @@ subroutine iclass_cshell(I,J,K,L,NNA,NNC,NNAB,NNCD)
enddo

intindex = intindex + INTNUM
#endif
else
if(II.lt.JJ.and.II.lt.KK.and.KK.lt.LL)then
do III=III1,III2
Expand Down Expand Up @@ -1081,7 +1083,7 @@ end subroutine get_oshell_eri_energy
end subroutine get_cshell_eri_energy
#endif


#ifdef COMPILE_AOINT
! Drivers to dump integrals into files. Currently not working.
subroutine writeInt(iIntFile, intDim, a, b, int)
Implicit none
Expand Down Expand Up @@ -1450,6 +1452,7 @@ subroutine addInt
100 continue

end subroutine addInt
#endif

#ifdef OSHELL
end module quick_oshell_eri_module
Expand Down

0 comments on commit 0f19bea

Please sign in to comment.