Code: Select all
Author: Radovan Bast <bast@users.noreply.github.com>
Date: Thu Aug 4 15:43:07 2016 +0200
restore compilation with gcc 6.1.1; fixes #53
diff --git a/src/deccc/rimp2.F90 b/src/deccc/rimp2.F90
index 65c4cbf..14f7bff 100644
--- a/src/deccc/rimp2.F90
+++ b/src/deccc/rimp2.F90
@@ -102,6 +102,7 @@ end subroutine decnp_RIMP2_integrals_and_amplitudes
subroutine RIMP2_integrals_and_amplitudes(MyFragment,&
& goccEOS, toccEOS,gvirtEOS, tvirtEOS, djik,blad)
+ use iso_c_binding, only: c_ptr
implicit none
!> Atomic fragment (or pair fragment)
type(decfrag), intent(inout) :: MyFragment
@@ -2445,6 +2446,7 @@ end subroutine BuildEosArrayVirt
!> \author Thomas Kjaergaard
!> \date Marts 2016
subroutine SOSRIMP2_energy(MyFragment)
+ use iso_c_binding, only: c_ptr
implicit none
!> Atomic fragment (or pair fragment)
type(decfrag), intent(inout) :: MyFragment
@@ -4199,6 +4201,7 @@ end subroutine BuildTampLaplaceCPU
!> \author Thomas Kjaergaard
!> \date August 2015
subroutine RIMP2F12_Ccoupling_energy(MyFragment,EnergyF12Ccoupling,Fragment1,Fragment2)
+ use iso_c_binding, only: c_ptr
implicit none
!> Atomic fragment (or pair fragment)
type(decfrag), intent(inout) :: MyFragment
@@ -5066,6 +5069,7 @@ end subroutine RIMP2F12_EnergyCont
!> \author Thomas Kjaergaard
!> \date 2015
subroutine PerformAuxReduction(MyFragment)
+ use iso_c_binding, only: c_ptr
implicit none
!> Atomic fragment (or pair fragment)
type(decfrag), intent(inout) :: MyFragment
@@ -5656,6 +5660,7 @@ end subroutine PerformAuxReduction
subroutine BuildLTRIMP2OccModifiedFitCoeff(NBA,noccOut,nvirt,nvirt8,nLaplace,Ctmp2,use_bg_buf,&
& UseGPU,nocc,nocc8,Calpha,TauOcc,UoccT,UoccEOST,TauVirt,UvirtT,async_id,cublas_handle,&
& CtmpTmpArray,CtmpIn)
+ use iso_c_binding, only: c_ptr
implicit none
integer,intent(in) :: NBA,noccOut,nvirt,nLaplace,nocc
integer(kind=8),intent(in) :: nvirt8,nocc8
@@ -5775,6 +5780,7 @@ end subroutine BuildLTRIMP2OccModifiedFitCoeff
!> \date 2016
subroutine BuildRIMP2OccFitCoeff(NBA,noccOut,nvirt,CalphaOut,use_bg_buf,&
& UseGPU,nocc,Calpha,UoccEOST,UvirtT,async_id,cublas_handle)
+ use iso_c_binding, only: c_ptr
implicit none
integer,intent(in) :: NBA,noccOut,nvirt,nocc
real(realk),intent(in) :: Calpha(NBA*nvirt*i8*nocc)
@@ -5851,6 +5857,7 @@ end subroutine BuildRIMP2OccFitCoeff
subroutine BuildLTRIMP2VirtModifiedFitCoeff(NBA,nocc,nvirtOut,nvirt8,nLaplace,Ctmp2,use_bg_buf,&
& UseGPU,nvirt,nocc8,Calpha,TauOcc,UoccT,TauVirt,UvirtT,UvirtEOST,async_id,cublas_handle,&
& CtmpTmpArray,CtmpIn)
+ use iso_c_binding, only: c_ptr
implicit none
integer,intent(in) :: NBA,nocc,nvirtOut,nLaplace,nvirt
integer(kind=8),intent(in) :: nvirt8,nocc8
@@ -5965,6 +5972,7 @@ end subroutine BuildLTRIMP2VirtModifiedFitCoeff
subroutine BuildRIMP2VirtFitCoeff(NBA,nvirt,nvirtOut,Calpha3,use_bg_buf,&
& UseGPU,nocc,Calpha,UoccT,UvirtEOST,async_id,cublas_handle)
+ use iso_c_binding, only: c_ptr
implicit none
integer,intent(in) :: NBA,nocc,nvirtOut,nvirt
real(realk),intent(in) :: Calpha(NBA*nvirt*i8*nocc)
@@ -6431,6 +6439,7 @@ end subroutine CalcEnergyCOSmpiPairVirt
subroutine CalcEnergyCos(nLaplace,nvirt,noccOut,Ctmp2,Calpha3,mynum,numnodes,&
& CollaborateWithSlaves,NBA,use_bg_buf,UseGPU,async_id,cublas_handle,&
& PairW,EnergyCos,nbasisAux,laplaceW)
+ use iso_c_binding, only: c_ptr
implicit none
!> number of auxiliary basis functions
integer,intent(in) :: nbasisAux
@@ -6569,6 +6578,7 @@ end subroutine CalcEnergyCos
subroutine ConstructWalphabetaAuxRed(Walphabeta,nbasisAux,nLaplace,nvirt,noccOut,&
& Ctmp2,Calpha3,mynum,numnodes,CollaborateWithSlaves,NBA,use_bg_buf,UseGPU,&
& async_id,cublas_handle,PairW,TensorTiling3C)
+ use iso_c_binding, only: c_ptr
implicit none
!> number of auxiliary basis functions
integer,intent(in) :: nbasisAux
@@ -6858,6 +6868,7 @@ end subroutine PlugWtmpIntoWfullMPI
!> \date 2016
subroutine ConstructWalphabetaAuxRedOwn(Wtmp,NBA,nLaplace,nvirt,nocc,&
& Ctmp2,Calpha3,UseGPU,async_id,cublas_handle,PairW)
+ use iso_c_binding, only: c_ptr
implicit none
!> number of auxiliary basis functions assigned to this node
integer,intent(in) :: NBA
@@ -6927,6 +6938,7 @@ end subroutine ConstructWalphabetaAuxRedOwn
!> \date 2016
subroutine ConstructWalphabetaAuxRedOwnPair(Wtmp,NBA,nLaplace,nvirt,nocc,&
& Ctmp2,Calpha3,UseGPU,async_id,cublas_handle,DoEosP)
+ use iso_c_binding, only: c_ptr
implicit none
!> number of auxiliary basis functions assigned to this node
integer,intent(in) :: NBA
@@ -6996,6 +7008,7 @@ end subroutine ConstructWalphabetaAuxRedOwnPair
!> \date 2016
subroutine ConstructWalphabetaAuxRedMPI(Wtmp,NBA,nLaplace,nvirt,nocc,&
& Ctmp2,Cmpi,NBAmpi,UseGPU,async_id,cublas_handle,PairW)
+ use iso_c_binding, only: c_ptr
implicit none
!> number of auxiliary basis functions assigned to this node
integer,intent(in) :: NBA
@@ -7064,6 +7077,7 @@ end subroutine ConstructWalphabetaAuxRedMPI
!> \date 2016
subroutine ConstructWalphabetaAuxRedMPIpair(Wtmp,NBA,nLaplace,nvirt,nocc,&
& Ctmp2,Cmpi,NBAmpi,UseGPU,async_id,cublas_handle,DoEosP)
+ use iso_c_binding, only: c_ptr
implicit none
!> number of auxiliary basis functions assigned to this node
integer,intent(in) :: NBA