Skip to content

Commit

Permalink
initialize variable
Browse files Browse the repository at this point in the history
  • Loading branch information
rybkinjr committed Nov 26, 2019
1 parent 2f48ea3 commit cd8a780
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions src/cp_control_utils.F
Original file line number Diff line number Diff line change
Expand Up @@ -717,6 +717,7 @@ SUBROUTINE read_qs_section(qs_control, qs_section)
CALL section_vals_val_get(qs_section, "CLUSTER_EMBED_SUBSYS", l_val=qs_control%cluster_embed_subsys)
CALL section_vals_val_get(qs_section, "HIGH_LEVEL_EMBED_SUBSYS", l_val=qs_control%high_level_embed_subsys)
CALL section_vals_val_get(qs_section, "DFET_EMBEDDED", l_val=qs_control%dfet_embedded)
CALL section_vals_val_get(qs_section, "DMFET_EMBEDDED", l_val=qs_control%dmfet_embedded)
! Integers gapw
CALL section_vals_val_get(qs_section, "LMAXN1", i_val=qs_control%gapw_control%lmax_sphere)
Expand Down

0 comments on commit cd8a780

Please sign in to comment.