From 4dfb37cc852bf0f3ebacdafd5aa1ce499fcbef2d Mon Sep 17 00:00:00 2001 From: edoapra Date: Wed, 15 Oct 2025 16:16:29 -0700 Subject: [PATCH] set variables to avoid being unitialized to avoid sporadic rtdb_cget errors because rtdb_cput was using garbage values --- src/nwdft/rt_tddft/input/rt_tddft_input_field.F | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/src/nwdft/rt_tddft/input/rt_tddft_input_field.F b/src/nwdft/rt_tddft/input/rt_tddft_input_field.F index 57d1c4e662..49fac536ae 100644 --- a/src/nwdft/rt_tddft/input/rt_tddft_input_field.F +++ b/src/nwdft/rt_tddft/input/rt_tddft_input_field.F @@ -389,6 +389,19 @@ C C C Load into rtdb C +c set variables to avoid being unitialized (and later trash rtdb) + this_field%filename = "fname" + this_field%polarization = "pol" + this_field%spin = "sp" + this_field%max = 0d0 + this_field%frequency = 0d0 + this_field%width = 0d0 + this_field%center = 0d0 + this_field%start = 0d0 + this_field%phase = 0d0 + this_field%theta = 0d0 + this_field%phi = 0d0 +c this_field%name = field_name this_field%type = type @@ -442,7 +455,6 @@ C else call errquit (pname//"invalid type: "//trim(type), 0, 0) endif - C XXX REFACTOR THIS if (type .ne. "file") then