LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00
Code Issues Releases Wiki Activity

Corrected bug to read/write ao integrals

Browse Source
This commit is contained in:
Anthony Scemama 2015-09-19 15:05:28 +02:00
parent c910257927
commit 13ce974ee4
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Integrals_Bielec/read_write.irp.f
View File

@ -20,7 +20,13 @@ implicit none
read_ao_integrals = .False. read_ao_integrals = .False.
write_ao_integrals = .False. write_ao_integrals = .False.
else if (disk_access_mo_integrals.EQ.'Read') then else
print *, 'bielec_integrals/disk_access_ao_integrals has a wrong type'
stop 1
endif
if (disk_access_mo_integrals.EQ.'Read') then
read_mo_integrals = .True. read_mo_integrals = .True.
write_mo_integrals = .False. write_mo_integrals = .False.
@ -33,8 +39,8 @@ implicit none
write_mo_integrals = .False. write_mo_integrals = .False.
else else
print *, 'bielec_integrals/disk_acces not of a the good type' print *, 'bielec_integrals/disk_access_mo_integrals has a wrong type'
stop "1" stop 1
endif endif