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)