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

trigraph problems

Browse source
This commit is contained in:
Robert Harrison 2000-09-13 18:15:56 +00:00
parent 120738cc1c
commit 0cf1375339
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/develop/uccsdtest.F
View file

@ -1,6 +1,6 @@
logical function uccsdtest(rtdb)
*
* $Id: uccsdtest.F,v 1.20 2000-05-30 06:36:56 d3g681 Exp $
* $Id: uccsdtest.F,v 1.21 2000-09-13 18:15:56 d3g681 Exp $
*
implicit none
#include "global.fh"
@ -6191,7 +6191,7 @@ c
double precision ddot
external ddot
c
if (m .lt. 1) call errquit('m???', m)
if (m .lt. 1) call errquit('m?', m)
if (m .gt. maxm) call errquit('maxm', m)
c
call dcopy(n, df(1,m), 1, delta, 1)
@ -6218,7 +6218,7 @@ c$$$ write(6,*) ' REDUCED B'
c$$$ call doutput(b, 1, m-1, 1, 1, m-1, 1, 1)
c
call dgesv(m-1, 1, a, maxm, ipiv, b, maxm, info)
if (info .ne. 0) call errquit(' info ??? ', 0)
if (info .ne. 0) call errquit(' info ? ', 0)
call dcopy(m-1, b, 1, c, 1)
c$$$ write(6,*) ' REDUCED C'
c$$$ call doutput(b, 1, m-1, 1, 1, m-1, 1, 1)