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

guess densmat filename

Browse source
This commit is contained in:
edoapra 2022-03-08 18:33:03 -08:00
parent a1fba10751
commit 64eb7b7ee5
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/dplot/dplot_input.F
View file

@ -176,9 +176,11 @@ c guess dft as theory (is this really needed???)
*
*---- Read the information about the source of the one particle reduced density matrices
250 Continue
if (.not.inp_a(File_Mat1))
1 call errquit('dplot_input: densmat <file1> [<file2>]',0,
1 input_err)
if (.not.inp_a(File_Mat1)) then
call util_file_name('densmat', .false.,.false.,file_mat1)
endif
c 1 call errquit('dplot_input: densmat <file1> [<file2>]',0,
c 1 input_err)
if (inp_a(test)) then
lth = inp_strlen(test)
File_Mat2(1:lth) = test(1:lth)