comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 22:25:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

small chenges for addition of empirical parameters

Browse source 
svn-origin-rev: 30
This commit is contained in:
Gloria Tabacchi 2001-07-01 17:42:00 +00:00
parent 3828292d60
commit d2f3429faf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/force_control.F
View file

@ -99,8 +99,8 @@ SUBROUTINE force_1 ( struc, inter, thermo, simpar, ewald_param, box_change, &
CALL pol_force_control ( struc % molecule, struc % pnode, struc % part, &
struc % box, struc % box_ref, struc % drho_basis_info, &
struc % rho0_basis_info, struc % coef_pos (1), struc % coef_vel (1), &
struc % coef_force (1), thermo, inter%potparm, ewald_param, &
simpar % ensemble, globenv, struc%ll_data )
struc % coef_force (1), thermo, inter%potparm, inter%empparm, &
ewald_param, simpar % ensemble, globenv, struc%ll_data )
CASE ( 'TBMD' )
CALL tbmd_force_control ( struc % molecule, struc % pnode, struc % part, &