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

inserted dgemm

Browse source
This commit is contained in:
edoapra 2021-11-12 17:34:58 -08:00
parent 290eaeaeac
commit 35efa19ca7
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/stepper/stpr_partit.F
View file

@ -448,6 +448,7 @@ C
C Determine all eigenvectors of internal hessian.
C
call dfill(NAT3SQ,0.0d00,VECSQ,1)
#if 0
DO 330 N = 1, NINTER
DO 340 ICART = 1,NAT3
VECSQ(ICART,N) = 0.0D0
@ -457,6 +458,12 @@ C
350 CONTINUE
340 CONTINUE
330 CONTINUE
#else
call dgemm('n','n',nat3,ninter,ninter,
a 1d0,VC(1,nexter+1),nat3,
b SCRSQ,nat3,
c 1d0,vecsq,nat3)
#endif
C
C Write out the eigenvectors.
C