comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-27 05:35:37 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

set variables to avoid being unitialized

Browse source 
to avoid sporadic rtdb_cget errors

because rtdb_cput was using garbage values
This commit is contained in:
edoapra 2025-10-15 16:16:29 -07:00
parent 6977108c27
commit 4dfb37cc85
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/nwdft/rt_tddft/input/rt_tddft_input_field.F
View file

@ -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