outputElectric field initialized only when needed

QEF · Apr 19, 2018 · eb6a0c4 · eb6a0c4
1 parent 58006fb
commit eb6a0c4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/PW/src/pw_restart_new.f90 b/PW/src/pw_restart_new.f90
@@ -467,7 +467,8 @@ SUBROUTINE pw_write_schema( )
             dipol_ptr => dipol_obj
          END IF
          IF ( lberry ) bp_obj_ptr => bp_obj_ptr
-         CALL qexsd_init_outputElectricField(output%electric_field, lelfield, tefield, dipfield, &
+         IF (output%electric_field_ispresent) &
+            CALL qexsd_init_outputElectricField(output%electric_field, lelfield, tefield, dipfield, &
                  lberry, BP_OBJ = bp_obj_ptr, EL_POL = bp_el_pol, ION_POL = bp_ion_pol,          &
                  GATEINFO = gate_info_ptr, DIPOLE_OBJ =  dipol_ptr) 
          !