Searched refs:bq_energy (Results 1 – 4 of 4) sorted by relevance
166 bq_energy = bq_el_energy + bq_nuc_energy167 eqm0 = qm_energy-bq_energy177 if(bq_energy.ne.0.0d0) then250 double precision bq_energy276 bq_energy = bq_el_energy + bq_nuc_energy277 eqm0 = qm_energy-bq_energy288 if(bq_energy.ne.0.0d0) then323 double precision bq_energy342 $ bq_energy = 0.0d0352 if(bq_energy.ne.0.0d0) [all …]
561 double precision bq_energy local592 bq_energy = bq_el_energy + bq_nuc_energy602 if(bq_energy.ne.0.0d0) then