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

Corrected spinor_guess. It was complaining about not being able to open atomic, fragment, or hcore as if it was a file.

Browse source
This commit is contained in:
Bert de Jong 2002-02-06 20:06:21 +00:00
parent e74d3482d2
commit c892d040e9
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/nwdft/so_dft/vectors_so.F
View file

@ -1,7 +1,7 @@
logical function movecs_read_header_so
$ (filename, title, basis_name,
$ scftype, nbf)
C$Id: vectors_so.F,v 1.4 2000-10-23 15:52:46 windus Exp $
C$Id: vectors_so.F,v 1.5 2002-02-06 20:06:21 bert Exp $
implicit none
#include "global.fh"
#include "tcgmsg.fh"
@ -810,7 +810,7 @@ c
c
end
logical function spinor_guess(filename)
C$Id: vectors_so.F,v 1.4 2000-10-23 15:52:46 windus Exp $
C$Id: vectors_so.F,v 1.5 2002-02-06 20:06:21 bert Exp $
implicit none
#include "global.fh"
#include "tcgmsg.fh"
@ -830,12 +830,15 @@ c
c
ok = 0
if (ga_nodeid() .eq. 0) then
open(unitno, status='old', form='unformatted', file=filename,
$ err=1000)
read(unitno, err=1001, end=2001) ! SKIP convergence info
read(unitno, err=1001, end=2001) scftype20
close(unitno, err=1002)
if(scftype20.eq.'sodft')ok = 1
if(filename.ne.'atomic'.and.
$ filename.ne.'fragment'.and.filename.ne.'hcore') then
open(unitno, status='old', form='unformatted',
$ file=filename,err=1000)
read(unitno, err=1001, end=2001) ! SKIP convergence info
read(unitno, err=1001, end=2001) scftype20
close(unitno, err=1002)
if(scftype20.eq.'sodft')ok = 1
endif
endif
c
10 call ga_brdcst(Msg_Vec_Stat+MSGINT, ok, mitob(1), 0) ! Propagate status