From 64eb7b7ee574feaa32ed708cec424974d3518b6c Mon Sep 17 00:00:00 2001 From: edoapra Date: Tue, 8 Mar 2022 18:33:03 -0800 Subject: [PATCH] guess densmat filename --- src/dplot/dplot_input.F | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/dplot/dplot_input.F b/src/dplot/dplot_input.F index 2da6173e69..6f2a6d0e4d 100644 --- a/src/dplot/dplot_input.F +++ b/src/dplot/dplot_input.F @@ -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 []',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 []',0, +c 1 input_err) if (inp_a(test)) then lth = inp_strlen(test) File_Mat2(1:lth) = test(1:lth)