LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 11:33:29 +01:00
Code Releases Activity

placeholder to prevent warning about out values not assigned

Browse Source
This commit is contained in:
Kevin Gasperich 2020-07-01 13:06:24 -05:00
parent cffb5cd7f6
commit 6a4659bc10
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ao_two_e_ints/map_integrals_cplx.irp.f
View File

@ -406,6 +406,10 @@ subroutine get_ao_two_e_integrals_non_zero_complex(j,k,l,sze,out_val,out_val_ind
integer, intent(out) :: out_val_index(sze),non_zero_int integer, intent(out) :: out_val_index(sze),non_zero_int
print*,'not implemented for periodic',irp_here print*,'not implemented for periodic',irp_here
stop -1 stop -1
!placeholder to keep compiler from complaining about out values not assigned
out_val=0.d0
out_val_index=0
non_zero_int=0
! !
! integer :: i ! integer :: i
! integer(key_kind) :: hash ! integer(key_kind) :: hash
@ -455,6 +459,10 @@ subroutine get_ao_two_e_integrals_non_zero_jl_complex(j,l,thresh,sze_max,sze,out
integer, intent(out) :: out_val_index(2,sze_max),non_zero_int integer, intent(out) :: out_val_index(2,sze_max),non_zero_int
print*,'not implemented for periodic',irp_here print*,'not implemented for periodic',irp_here
stop -1 stop -1
!placeholder to keep compiler from complaining about out values not assigned
out_val=0.d0
out_val_index=0
non_zero_int=0
! !
! integer :: i,k ! integer :: i,k
! integer(key_kind) :: hash ! integer(key_kind) :: hash
@ -507,6 +515,10 @@ subroutine get_ao_two_e_integrals_non_zero_jl_from_list_complex(j,l,thresh,list,
integer, intent(out) :: out_val_index(2,sze_max),non_zero_int integer, intent(out) :: out_val_index(2,sze_max),non_zero_int
print*,'not implemented for periodic',irp_here print*,'not implemented for periodic',irp_here
stop -1 stop -1
!placeholder to keep compiler from complaining about out values not assigned
out_val=0.d0
out_val_index=0
non_zero_int=0
! !
! integer :: i,k ! integer :: i,k
! integer(key_kind) :: hash ! integer(key_kind) :: hash