comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-27 13:45:27 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Update int_2e_sifs.F

Browse source 
Removing superfluous passing of ifmt
This commit is contained in:
lachlanbelcher 2024-01-21 15:33:26 -03:00 • committed by GitHub
parent 2edc74134f
commit 34831ea137
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/nwc_columbus/aoints/int_2e_sifs.F
View file

@ -1,5 +1,5 @@
subroutine int_2e_sifs( geom, basis, tol2e, oskel, aoint2, ninfo,
& info, ifmt, ibvtyp, ibitv, clabs)
& info, ibvtyp, ibitv, clabs)
c
implicit none
#include "errquit.fh"
@ -19,7 +19,7 @@ c arguments
c
integer geom, basis ! [input] parameter handles
integer aoint2
integer ninfo, ifmt, ibvtyp
integer ninfo, ibvtyp
integer ibitv
integer info(ninfo)
double precision tol2e ! [input] integral selection threshold
@ -185,7 +185,7 @@ cgk end
call int_2e_sifs_a( geom, basis, ablklen, tol2e, oskel,
$ dbl_mb(k_atmp), int_mb(k_block), nblock, aoint2, ninfo,
& info, ifmt, ibvtyp, ibitv, clabs)
& info, ibvtyp, ibitv, clabs)
cgk debug
* write(*,*)'gk: back from int_2e_sifs_a'