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

Update rd_d2bl.F

Browse source 
removed ifmt from call to sifrd2 -- carry over from previous version of sifs
This commit is contained in:
lachlanbelcher 2024-01-21 14:56:37 -03:00 • committed by GitHub
parent 354eff5097
commit ff481745e7
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/nwc_columbus/aoints/rd_d2bl.F
View file

@ -23,7 +23,7 @@ c # bummer error types.
c
c ## integer section
c
integer info(ninfmx),itypea,itypeb,ifmt,ibvtyp,ierr,ibitv(1)
integer info(ninfmx),itypea,itypeb,ibvtyp,ierr,ibitv(1)
integer last,labs(4,*)
integer nbuf
integer sfile
@ -48,7 +48,7 @@ cgk debug
cgk end
call sifrd2(sfile, info, nipv, iretbv,
& buffer, nbuf, last, itypea,
& itypeb, ifmt, ibvtyp, vals,
& itypeb, ibvtyp, vals,
& labs, ibitv, ierr)
cgk debug
! write(*,*)'gk: after sifrd2'